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ABSTRACT 


A summary and documentation of a family of computer 
programs that have been developed by the gravity group at 
the Woods Hole Oceanographic Institution is presented. 

The programs provide for format conversion, computation of 
the regional gravity field from spherical harmonic 
coefficients, selective data retrieval, graphic display, 
and construction of two- and three-dimensional structure 
models and the computation of the gravitational attraction 


of those models. 








GRAVITY DATA PROCESSING PROGRAMS 


INTRODUCTION 
This report is a summary and documentation of a 

family of computer programs that have been developed by the 

gravity group at the Woods Hole Oceanographic Institution. 
F The programs documented here provide for format conversion, 
computation of the regional gravity field from spherical 
harmonic coefficients, selective data retrieval, graphic display, 
and construction of two- and three-dimensional structure models 
and the computation of the gravitational attraction of those 
models. 

Many of the programs in this report have been used and 
modified for more than ten years. During this time six substantially 
different computer systems have been available to us. These are 
an Autonetics Recomp II, General Electric 225, IBM 7090 and 7094, 
IBti 1710 (siipboard), XDS Sigma-7, and Hewlett-Packard 2114, 2116, 
and 2100 (shipboard). Thus the programs have evolved not only 
because of ‘hanging needs and experience, but also because of 


different system hardware and software constraints. Artifacts 


reflecting this evolution are evident in some of the programs. 





In the interpretation of gravity data and the creation 
of structure models of earth features, other geophysical and 
geological information is important. Gravity potential infor- 
mation alone does not define a unique mass distribution, and 
hence additional information is required to limit the possibilities. 
Therefore, we have added the capability for retrieving and 
displaying other types of data which are available in digital 
form. At the present time these data types include seismicity, 
seismic refraction profiles, and location of active volcanoes. 
The seismic refraction profiles are derived from a compilation 
of crustal seismic refraction profiles prepared by McConnel Jr. 
and McTaggart-Cowan of the University of Toronto in 1963 and from 
five supplements (No. 1 by Gupta and McTaggart-Cowan, 1964; 
No. 2 by Gertner, 1967; No. 3 by Gertner and Farquhar, 1968; 
No. 4 by Gertner and Farquhar, 1971; and No. 5 by Gertner and 
Farquhar, 1972). Supplements numbers 2 through 5 were sponsored 
by the Federation of Astronomical and Geophysical Services of 
I.C.S.U. Subsequent to the fifth supplement, financial assistance 
to the University of Toronto by U.N.E.S.C.O. for this compilation 
terminated, and unfortunately, this compilation effort has 


ceased. For our utilization of the seismic refraction compilation, 


ee 


ory UD 4 


hae 


Derek we We DE 








we find a single record per refraction line a more convenient 
format than the one- or two-record format prepared by the 


University of Toronto. We prefer magnetic tape or disc for 


data storage and accordingly are not limited by the 80 


character record length of punched cards. We have incorporated 
additional data as we have had particular needs. 

The file of locations of active volcanoes was originally 
coded froin the Catalogue of Active Volcanoes. Volcanoes on 
New Zealand were added from Thompson (1964), and those in 
Alaska and the Aleutian Arc were added from Foster et al. (1966) 
and Coats (1950). More recently, IAVCEI has prepared data sheets 
of the post-Miocene volcanoes of the world (IAVCEI, 1975). A 
deck of cards based on these data sheets was obtained in December 
1975 from NGSDC. 

Audjitional data types can be incorporated into our programs 
relatively easily. Location and certain other characteristics of 
Deep Sea Prilling Program (DSDP) drill hole sites is a file of 
interest. We hope that a source for a global compilation of 


seismi: slip mechanisms might be found. 


PROGRAMS 
A diagram outlining the functions served by the programs 


documented in this report is given as Figure 1. This diagram 





serves as an index to the utilization of the family of programs, 


and it is intended to be largely self-explanatory. Table 1 
lists the programs documented here and provides a summary 
statement of the purpose of each program. Table 1, together 
with figure 1, enables the reader to quickly find programs 
to meet his need. 

Doc‘'umentation for the programs themselves follows the 
references cited section. The programs are ordered alphabetically, 
and for each program the characteristics and operational para- 
meters are described first, followed by a section containing 
listings of the source coding. Subroutines required by thesé 
programs are then given alphabetically in the section after the 
program listings. Standard system routines and those of a normal 
Fortran subroutine library are not reproduced. Normally, only a 


source listing is given for each subroutine. 
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Table 1 


PROGRAM DICTIONARY 


ABSTGC - ABSTRACTS GCON data at a spacing of 10 nautical miles. 
CHART - Plots data on Mercator charts 
CHARTG ~ Plots GSUM data on Mercator charts. Much 


faster than CHART for GSUM data. 


CONV67 - Converts yravity data at Potsdam system to 
IGSN71 and International Gravity Formula 1967. 


CR2G - Converts land gravity meter counter readings to 
observed gravity. 


CR2G67 - Like CR2G, but calculates anomalies referenced 
to International Gravity Formula 1967. 
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CRWT3 - Calculates the pressure at the base of a crustal 
column (Kg/em) . 


DMABLK - Converts blocked DMA format data to blocked 
GSUM format data. 


DMAP - Converts digitized position in inches to 
latitude and longitude. 





DMOD - Punches digitized polygon points for crustal 
i models digitized on a digitizing table. 
GFLD1 - Calculates regional free-air gravity anomalies 
for a given region from spherical harmonic 
j coefficients. 
GFLD2 - Calculates regional free-air gravity anomalies 
, from spherical harmonic coefficients entered at 
run time, 
t 
i GRAFG2 - Plots one variable versus another. 
é 
' GRAV1 - Converts data input at format of 8 July 1969 to 


GSUM format. 





Table 1 (continued) 
GSTOG Converts data input in SEAG] or SEAG2 format to 
128-character GSUM records, 


GSTOG67 Like GSTOG, but. checks input for 1930 or 1967 
gravity formula reference, Output referenced 
to 1967 International Gravity Formula. 


Computes gravity anomaly (for both flat and 

curved planetary surfaces), potential field (for 
flat survace), and mass per unit area for a set 

of polygonal laminae comprising a three-dimensional 
crustal structure model. 


G3 DCPREP Combines G3DCP input bodies into 1 file for 
processing. 


Converts gravity data in the format used by the 
Hawaii Institute of Geophysics (HIG) to GSUM format. 


Checks laminae of G3DCP format for minimum 
thickness and counts them, 


MODPLOT Plots data for preparation of structure models 
of the earth's crust and plots the output tapes 
from TALPLOT16. 
Converts gravity data in NOAA format to WHOI GSUM format. 
Profiles GSUM data 
Projects data ontoa given line providing the data 
is within a given area and within a given distance 


from the line. 


RETRIEV): System processor for retrieving data from data files. 


' SAINT2 Interpolates data at even intervals. 


SELSP Selects data output by the CRWT3 program on the 
basis of a given parameter. 


Converts seismic refraction column data in Univer- 
sity of Toronto World Seismic Refraction Profile 
Compilation format to WHOI SPFMT format. 


TALPLOT1L6 Computes gravity anomalies and mass per unit area 
for a set of two-dimensional polygons. 





TABLE 2 


SUBROUTINES REQUIRED BY THE PRECEDING PROGRAMS: 
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NAME: ABSTGC 
TYPE: Main Program 
PURPOSE: To abstract GCON data at a spacing of 10 nautical miles 
MACHINE: XDS Sigma 7 


PROGRAM CATEGORY: Statistical 


DESCRIPTION: 





The program processes one degree of GCON data at a time. 
The data is decoded and if the data falls within the degree 
square of concern the free air anomaly and height is added 
to the appropriate 10 nautical mile square value and the 
position is checked to see if this point is the closest to 
the center of the square. If it is the closest, the values 
and the position are retained. When all the data for the 
degree square is progessed the GABS data record is written 
to the output device. 


INPUT: 


GCON DATA (via F:1) 


PARAMETER CARDS (via F:105) 


1) Sense switch card 
ssw(46) = 0 no effect 
= 2 


SSW (46) process within bounds and use D.L.T. 
2) Geographic Bounds (in degrees) 

Top (KDTOP, 15) 

Bottom (KDBOT, 15) 

Left (KDLFT, 15) 

Right (KDRGT, I5) 


3) D.L.T. deck if applicable 


Data in GCON format blocked 22 x 50. 


OUTPUT: 





GABS DATA (via F:2) 





Data in GABS format. Data in each physical record is 
all the data for one degree square. The first logical record 
of each physical record is the whole-part of the latitude and 


longitude, Following are 36 logical records, one each for the 
10 nautical mile sqv'- : (see figures 
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ABSTGC (continued) page 2 


USAGE: 


SAMPLE RUN 


LJOB 

{LIMIT (9T,2) (CORE, 20), (TIME, XY) 

!IMESSAGE I/P tape info 

!MESSAGE O/P tape info 

!ASSIGN F:1 (DEVICE, 9T),(SN, XXXX), (IN), (TRIES,10) 
!ASSIGN F:2 (DEVICE, 9T) ,(SN,YYYY), (OUT), (TRIES,10) 
!LOAD (BI), (UNSAT, (312), (3)) 

ABSTGC object deck 


!RUN 
!DATA 


Parameter cards 


! EOD 
RESTRICTIONS: 
If bounds are to be checked a D.L.T. deck must be provided 
STORAGE: 16K words 
SUBPROGRAMS REQUIRED: ISW, FORTRANIV Library 
TIMING: Thru-put time is about 3000 logical records/minute 
PROGRAMMER: hae Gove 
ORIGINATOR: Carl Bowin | 


DATE: 15 October 1975 


AR eR 


| 





13 13 November 1972 
NAME: CHART 
TYPE: ‘Program 
PURPOSE: Plot data on Mercator charts a 


SOURCE LANGUAGE: Sigma-7 Fortran 4 
MACHINE: Sigma-7 

PROGRAM CATEGORY: Graphical Display 
DESCRIPTION: 


Plots Nercator chart at specified scale, draws track and 
annotat:es with specified parameter. 


INPUT: 


Irput ‘ormats: FIXSE, SEAG1, GSUM, MBATR, CALCM, and tabulations 
of refraction, earthquake, volcano, heat flow 
data. There is also a user specified format. 

Program plots a 1/2-inch fiducial square in lower right corner 

of chart. If sides of square are offset means pen hit stops 
or lost registration in course of plotting. 


lst card 
(20A4) Label- up to 80 characters, plotted vertically on 
left-hand margin of chart. 


2nd card Sense switch options 


Isw(0) - ISw(79) (8021) Put Sense switch (0) option in 
column 80, all others in column corresponding to 
switch number. 


Optional card 
If rISw(10) = 1 on card 2, put four-character name of input 
tape here, format (A4). Using this option (subroutine 
MOUNT) it is possible to generate a plot tape with several 
plots per job separated by EOF, from one or more input tapes. 
This card is never used when input data is in GSUM format. 
For MOUNT cards for GSUM format, see card)s) seven below. 


3rd card (2(312,14,5X), 3125) 





Column 
Lye ISTDA Start date for processing, for example 
| 3,4 ISTO 0204720341 means 2 February 1972 03412 
5,6 ISTYR If blank, plotting begins with first 
7,10 ISTHM record, 
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CHART Continued, page 2 20 November 1974 e 
14 CHART i 
Page 2 & 
3rd card continued Gi 
Column 2 
16,17 IENDA R 
18,19 IENMO End date for processing - if blank, 4 
20,21 IENYR plotting will continue until EOD or "y 5 
22-25 TENHM EOF is encountered [. wf 
31-35 ISKP No. of records to be skipped at stat 
of job, is much faster than using start 
date only. c 
36-40 ISFIL No. of files to be skipped at start of job. 
41-45 IBCKUP For making a series of overlapping plots 


from the same file. Number of points 
common to this plot and the next. Tape 
is backed up IBCKUP+1l records before 

_ restarting program. 


4th card (F10. 0,215,1X,A4,415) 


Column- 
1-10 SINCH = Inches/one degree of longitude in floating 
point 
15 ITRK = 0 for deleting track between plotting points 
1 for including track 
20 LCNT = N, for plotting every N'th point only 
25 NDEG = for plotting every NDEG intermediate grid 


line for integer degree bounds and every 
NDEG minutes for non-integer degree bounds. 
plot number to be annotated in lower left- 
hand corner on plot (A4) 

N, to annotate every N‘'th plotted point 
Data format code 

1, FIXSE Format 

2, SEAG1 Format e 

3, GSUM Format ; 

4, MBATR Format. 

5, CALCM Format 

STATIN Format 

7, SPFMT Format 

8, World seismicity Format 

9, Active Volcanoes 

10 Heat Flow 

11 Lunar Data 

12 User supplied 


27-30 NUMPL 


35 NPTA 
39,40 JFMT 


Punrnrnnnrnrannnun ss 
toa) 
= 


44,45 NX = tells what value is to be annotated beside 
point - the value to be annotated is a 
4 furrction of NX and JFMT. For all formats 7 
4 NX = 0 omits annotation beside data point 
50 NFILE = No. of files on the input tape to be 


: plotted on the same grid 
i = 0 will still plot first file 
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1, FIXSE Format - navigation 


1 for 
2 for 
3 for 
4 for 
5 for 


time, and Gate at iat of date 
month 

year 

day 

zone 


2, SEAGL Format - gravity 


for 
for 
for 
for 
for 
for 
for 
for 
for 


for 
for 
for 
for 
for 
for 
for 
for 
for 


time, and date at change .of day 

water depth in corrected meters 

free.air anomaly 

Bouguer anomaly 

speed in knots 

heading in degrees 

Eotvos correction 

Matthews Table number 

low order 3 digits of total magnetic field intensity 


for total regional magnetic field (not implemented) 
for residual magnetic value (not implemented) 

for negative speed 

for negative water depth 

for negative Eotvos correction 

for negative Free Air anomaly 

for negative heading 

for total magnetic field intensity 

for uncorrected depth in meters 

for uncorrected depth in fathoms<__ 


GSUM Format, — gravity summary 


time 

source code 

elevation 

depth 

height 

Free Air anomaly 
Bouguer anomaly 

terrain correction 
complete B3ouguer anomaly 


10 for regional Free Air anomaly 
11 for observed gravity 


4, ‘ATR Format - bathymetry 


for 
for 
EOL 
for 
for 
for 
for 
for' 


time 

corrected Gepths in fathoms 
corrected Gepths in meters 
cumulative distance in kms 
heading 

speed in knots 

uncorrected depths in fathoms 
uncorrected depths in meters 
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4th card continued Page 4 


JFMT = 5, CALCM Format - magnetic field 
NX 1 for time 

2 for calculatee regional field $ 
3 for anomalous field i} 
4 for cumulative distance in kms § 
5 . 
6 
7 


Ue ia 


i 


for heading 
for speed 
for observed magnetic field 


Hou 


JFMT = 6, STATN Format - stations- 
Not implemented 


7, SPFMT Format (Bowin format for Univ. of Toronto 
compilation’ of seismic refraction data) 

for station number 

for height 

for mantle velocity 

for depth to mantle 

for crustal thickness 

for average crustal velocity (CRVN) (Nafe-Drake) 

for column weight (WETN) using Nafe and Drake 

velocity/density relation 

8 for column weight (AVWTN) using average crustal sas ir 

9 for CRVW Seme as 6 to 8 but using Woollard@'s 


10 for WGTW velocity/density relation 
11 for AVWIv7 


JFMT 





NX 


! 
NOU BWN PP 


hou ou 
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JEMT = &, World Seismicity Format 
If SSW(16) = 1, then NX value is ignored and ANOV3 plots a 
! spot whose type and size depends upon depth and 
magnitude of earthquake 

If Sssw(16) = 0 

NX = 1 for date (month, day, year) 
2 for depth in kilometers 
3 for magnitude 


i} 


JEFMT = 9, Active Volcanoes 
NX = 1 for region cocle number (from IVA Catalog of Active 


Volcanoes of the World) 


= 2 for height in meters 
= 3 for yolume and page ((IPT*1000)+IPAGE) 
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4th card (Contd.) 


JFMT = 10, Heat Flow 
(For key to items 1, 6, and 7, see Simmons and 
Horai, Journ. Geophys. Res., Vol. 73, p- 6608- 
6629, 1968) 


for catalog sequence number 

for depth 

for heat flow 

for gradient 

for conductivity 

for classification code for station 
for reference number 

for year 


4 NX 


OIA PWNE- 


JFMT = 11, Lunar Data 
NX No options implemented yet 





i} 


JFMT = 12, User supplied format. Dummy 
Subroutine GETX is in library. User Supplies his 
own aS a binary or source deck with job. ‘The fol- 
lowing conventions must be followed: 





If NX 
If NX 


0 no annotations will take place. 
1 program will annotate with time. 


oul 


| 
. | 
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CHART 
Page 6 
5th card Format (415) 
Column 
5 KPT = 1 chart magnification factor (usually 1) 
10 KHT = Annotation character size in integer multiples 


of 0.07 inch (usually 1) 
15 ICTYP= 0 for non-integer degree chart boundaries 
1 for integer degree chart boundaries 
variable for decimal point in annotation of 
plotted points 
N, for N DIGITS to right of decimal point 
= 0 for decimal point only 
=-]1 for suppressing decimal point 


19, 20 IDEC 


6th card Format (415) Values are negative for west and south 
If ICTYP = 1 (integer degree boundaries) 
Column 
1-5 ITOP 
6-10 IBOT 
11-15 ILEFT 
16-20 IRIGT 


Top boundary of chart 
Bottom boundary of chart 
Left boundary of chart 
Right boundary of chart 


fl 


i il 


If ICTYP = O (non-integer degree), then enter CHART boundaries 
on 4 cards in degrees and minutes Format (1I5,F10.5) 
Be sure sign of the minutes agrees with the sign of 
degrees (e.9., -33-30,0) * 


DATA: 


Data in specified format are loaded in device having unit 
reference number 1. 


OUTPUT: 
Printer: 
Listing of inputs 


List of dates outside of chart boundaries ("O0OB") if SSW(9) is up 


List of dates of all data read if SSW(12) is up 
Plotter: 
Mercator Charts 


USAGE: See operating instructions at the end of this section 
RESTRICTIONS: None 


STORAGE REQUIREMENTS: 18,432, )locations 


*7th card format (A4) for GSUM formatted data only. 
Column 1-4 Input tape serial number, one per card, as many cards 


as input tapes. Last tape serial number card must have 
EITP in columns 1-4, to signal end of input tape serial 


numbers (calls subroutine MOUNT). 








19 13 November 1972 


CHART Continued, page 7 CHART 


Page 7 


SUBROUTINES REQUIRED: Stored in library accounts 305, 312 and 3 


GRID2,OLINE, WHR, ANOV2, RETBY, VETBY, GETC, GETF, GETG, GETM, GETS, 
GETST,GETH,GETP,GETV, GETY, GETL, GETX, MOUNT, STAT, ISW, TODAY, 
POSTAP, SPOT2,ANOV3,FIND,CALCOMP routines. 


OPERATIONAL ENVIRONMENT: 


Data input device - Unit reference number = 1 


12" ox 30" Calcomp Plotter 
OPERATIONAL CHARACTERISTICS: 


Sense Switch Options: Set to zero to decline option 


Ssw (0) 
ssw(1) 
SSW (2) 
SSW (3) 
SSW (4) 


SSW (5) 


SSW (6) 


ssw (7) 
ssw (8) 
ssw(9) 
SSw(10) 
SSW(11) 


SSw(12) 
SSW (13) 


oil 
ONror 


Il 


il 


oil 
YyrPrero 


i} 





1 to draw only the grid 

1 to @elete drawing NDEG lines (in GRID2) 

1 if next plot will be on the same grid as this 
plot, sets pen back at origin 

to only annotate date at change of day 

for no mark at data point 

for plotting a circle around data point 

for plotting a dot at data point 

to make Gegree annotations inside grid 

(character size 0.07") 

1 to make decree annotations outside grid 
(charecter size 0.21") 

2 to meke Gegree annotations outside grid 
‘character size 0.35") 

for multiplot runs, = 1 will put on EOF between 
plots. Useful to PDP-5 operator for restarting 

in the event of mechanical malfunction of pen 

to annotate on right side of track 

to annotate on left side of track 

to suppress plotting of grid 

to list points out of bounds on line printer 

to call subroutine MOUNT which reads serial 
number of input tape; not used for GSUM formatted |. 
1 to annotate data points alternately on left s 
and right side of track 

1 to list Gate of data just read for identification 
lL if two or more plots are to be made from the 
same file end this is not the last plot. Backs 
tape up to beginning of file and reinitializes 


progran. 





J 


a eee 





OPERATIONAL 


Ssw(16) 


SSW(17) 


ssw (18) 


Ssw(19) 


SSW(20) 


SSW (21) 


SSW(27) 


SSW (30) 
SSW (32) 
SSw (40) 
SSW (42) 
SSW (60) 


SSW (61) 


SSW(71) 






20 23 April 1975 4 
CHART 2 
Page 8 


CHARACTERISTICS (Contd. ) 


tt 


1 to plot a spot for seismicity data whose 
type and size depends upon the depth and 
Magnitude of the earthquake (ANOV4) 


= 0 (seismicity) plots an x for pre-1961 
data. Depth and magnitude data pre-1961 
are limited. For these points, ANOV4 
normally uses a symbol which does not vary 
in size 

= 1 ANOV4 will try to plot varying sized 
symbols for all data, including pre-1961 

= 9 will not plot pre~1961 data at all 

This sense switch is used only if SSW(16)=1 


0 to make annotation at right angles to 
incremental track (subroutine ANOV2) 

1 to make annotations horizontally 

2 to make annotations vertically 

3 to invert annotations for headings 180 
to 269 

4 to annotate either horizontally or 
vertically depending on direction of track 


uo 


0 for earth meridional parts from Bowditch 
1 for meridional parts for spherical planet 


uou 


u 


N, (seismicity) for additional size increment 
in plotting symbols for all data points 
(ANOV4). (Only if SSW(16)=1) 

= N, (seismicity) .for size factor by which 
plotting symbols will vary according to 
Magnitude. If N = 0, then ANOV4 sets 

N= 2. (Only if SSW(16) = 1) 


= 1 for GSUM data to suppress rewine input 
tape at start 


= 1 to read GSUM from 2 cards 

= 1 to reid SPFMT from 2 cards 

= 1 to process GSUM with BOUNDS using DLT 

= 1 to read SEISMICITY data in blocked format 
= 1] to process GSUM data only with IFFC = 4 


= 1 to replace GSUM values with averaged values 
for FA, BG, ELEV, LAT, LONG 


= ] to annotate every two hours on the hour only 
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CHART 


at Page 9 


Program Flow: 


Tape advances to start date. Program initialization 
choices are made, plotter draws and annotates Mercator 
grid, and then data in appropriate format are read and 
plotted one record at a time if within chart 
boundaries. If more than one plot is being made the 
program can be restarted using SSW(13), or by using 
SSW(6) and by putting a RUN and DATA card and 

continue with a new set of data cards. © 


TIMING: 
Two to twenty minutes depending upon s*ze of chart, 


number of intermediate degree lines plotted, and 
amount of data plotted and annotated. 


ERROR MESSAGE DIAGNOSTIC: 


Message Cause Action 
OOB day, month, Date point is out of Record is skipped, 
year, time chart boundaries, program continues 


and SSW(9) is up 


| 

i 

j 

| 

| 

/ 

| 

i 

i 

| 

| 

| 
| ‘ EOF day, month, End of file found on Job ends or con- 
year, time magnetic tape tinues to next plot 

i 


if any 
PARITY ER day, Parity error found Record is skipped, 
month, year, program continues 
time 
FMT ER day, Unidentified error Record is skipped, 
month, year, found © program continues 
time 


PROGRAMMER: Carl Bowin and Hartley Hoskins 


ORIGINATOR: Carl Bowin 


DATE : Version of 19 October 1972 


REFERENCES: Meridional parts calculated from formula given 
on page 1186 of Bowditch, “American Practical 
Navigator", 1962 corrected reprint, Govt. 
Printing Office, Washington, D. C. 0. 0. 
Publ. No. 9. 
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21 December 1976 
' 
NAME : CHARTG 
TYPE: Program 
PURPOSE: Plot GSUM, GCON, GABS on Mercator charts 
| SOURCE LANGUAGE: XEROX EXTENDED FORTRAN IV 
: | "MACHINE: Sigma-7 


PROGRAM CATEGORY: Graphical Display 


| DESCRIPTION: Plots Mercator chart at specified scale, 
g@ plots and annotates with specified 
| parameter value. 
| 


INPUT: 
Input formats: GSUM, GCON, GABS 
Plotter registration: Program plots a 1/2 inch fiducial 
square in lower right corner of 


chart.If sides are offset, there 
has been a loss of registration. 


Parameter Cards 


Card l Label - up to 80 characters written vertically 
on left margin of chart (FORMAT 20A4) ) 





Card 2 Sense Switch Options - (FORMAT(80I1) ) 
put option in card column corresponding 
to sense switch (SSW(g) in colum 80) 


SSW(g) = 1 to only draw grid (no input data read) 
SSW(1) = 1 to delete all intermediate (NDEG) 

grid lines 
SSW(2) = 1 next plot will be on the same grid 
SSW(3) = 1 to annotate only at change of day 
ssw(4) = 1 to plot a circle around data point 


2 to plot a dot at the data point 





oa en RET A 





24 


te det at A: 


21 December 1976 
CHARTC 
Page 2 


ei til ane a 


INI-UT (continued) : 


SSW(5) = ¢ degree annotation inside grid 
(character size = 0.07") 
= 1 degree annotation outside grid 
(character size = 0.21") 
2 degree annotation outside grid 
(character size = 0.35") 


E SSW(6) = 1 puts EOF between plots 
3 SSW(7) = ¢ annotate on left side of track 
3 = 1 annotate on right side of track 
4 ssw(8) = 1 to suppress plotting of grid 
ag SSW(9) = 1 list date and time of data out of bounds 
: Ssw(10) = 1 to call mount to read serial 
E number of input tape 
SSW(11) = 1 to annotate data points alternately 
: on lett and right side of track 
| SSW(12) = 1 to list date of data just read 
3 SSW(18) = g annotations at right angles to track 
e | = 1 annotate horizontally 
q = 2 annotate vertically 
| = 3 invert annotations for headings 
| between 180 to 269 
E | = 5 to do no annotation 
| SSW(19) = g for earth meridional points from 
. | Bowditch 
E | = 1 for meridional points for spherical 
a planet 
SSW(25) = 1 to call MOUNT for input tape 
serial number 
SSW(30) = 1 to read GSUM from punched-cards 
SSW(40) = ¢g process unblocked GSUM (no DLT) 
' = 1 process blocked GSUM (no DLT) 
= 2 process blocked GSUM (with DLT) 
SSW(46) = g process with bounds 
= 1 to make no check on bounds 
SSW(71) = 1 to annotate every two hours on the 
hour 


Card 3 START/END Dates (Format(2(31I2,14,1x) ,315) ) 


Ly2 Start Day (ISTDA) 
3,4 Start Month (ISTMO) 
5,6 Start Year (ISTYR) 
7,10 Start Time (ISTHM) 
16,17 End Day ( IENDA) 
18,19 End Month (IENMO) 
20,21 End Year ( IENYR) 


22,25 End Time (IENHM) 
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21 December 1976 
CHARTG 
q Page 3 
INPUT (continued) : 
Card 4 (Format (F10.0,315,1X,A4, 515) ) 
Column 
1-10 Inches/one degree of longitude (SINCH) 
15 = 1 to draw track (ITRK) 
20 = N to plot every nth point (LCNT) 
25 = N to draw every nth grid line (NDEG) 
27-30 = number of plot (NUMPL) 
35 = N to annotate every nth plotted 
point (NPTA) 
39,40 = 3 to use GSUM (JFMT) 
= 13 to use GCON 
= 14 to use GABS 
44,45 = N to annotate with nth variable (NX) 
(see following table) 
50 = N to output N files on one grid (NF ILE) 
Table for Selecting NX 
JFMT = 3 (GSUM) 13 (GCON) 14 (GABS) 
NX 
0 omits annotation omits annotation omits annotation 
1 time 
2 source code 
3 elevation 
4 depth depth average free air 
5 height height average elevation 
6 free air anomaly free air anomaly central free air 
7 Bouguer anomaly Bouguer anomaly central elevation 
8 terrain corrections abstracted free number of points 
air 
9 complete Bouguer abstracted height 
10 regional free air average free air 
ll observed gravity average height 
Card 5 (Format (415) ) 
Column 
5 chart magnification factor (KPT) 
10 annotation character size (KHT) 
e | in integer multiples of 0.07 inch 
15 = 0 for non-integer chart bouncaries (ICTYP) 
= 1 for integer chart boundaries 
19,20 = N for N digits to right of decimal point 


0 for decimal point only 
-1 for suppressing decimal point 
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21 December 1976 
CHARTS 
Page 4 
INPUT (continued) : 
Card 6 (Format (415) ) 


If IctYp = 1 integer degree boundaries (Format (415) ) 


Column 
1-5 Top boundary 
6-10 Bottom boundary 
11-15 Left boundary 
16-20 Right boundary 


If ICTYP = 0 non-integer boundaries (Format(I5,F10,5) ) 


Enter one card each for top, bottom, left, right 
in degrees and minutes. 


VALUES ARE NEGATIVE FOR WEST AND SOUTH 


Remaining Cards 


The remaining cards depend on if DLT's are used 
and if mount is called. 


If neither are used, there are no more cards. 


If only mount is called, then there is a card for 
each input tape of the form. 


Column 
1-4 mag tape serial number’ (ITAPE) 


And after all tape serial numbers there is a card with 
3ITP from an ID. This signifies end of input tapes. 


If D.L.T.'s are used, the D.L.T. ‘deck is inserted 
immediately after the MOUNT serial number card for the 


appropriate tape. 


OUTPU1 : 
Printer: Listing of input parameters 


Plotter: Mercator charts 
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Page 5 
USAGE: : See operating instructions é 


RESTRICTIONS: None 





STORAGE REQUIREMENTS: 134915 locations 





SUBROUTINES REQUIRED: 





Stored in library accounts 456, 305, 312, and 3 

GRID2,OLINE,WHR,ANOV2, RETBY, VETBY,GETGS ,MOUNT, STAT, 

ISW, TODAY , POSTAP, SPOT2 , ANOV3 , FIND, CALCOMP routines 
OPERATIONAL ENVIRONMENT: 


9-track tape drive, card reader, line printer, plotter 


OPERATIONAL CHARACTERISTICS: 


i Program Flow: 


Tape advances to start date. Program initialization 
choices are made, plotter draws and annotates Mercator 
grid, and then data in appropriate format are read and 


plotted one record at a time if within chart boundaries. 


TIMING: About 1000 pts plotted per minute if the 
DLT is in use. 


ERROR MESSAGE DIAGNOSTIC: 


Message Cause Action 
OOB day, month, Data point is out of Record is skipped, 
year, time chart boundaries, and program continues 
ssw(9) = 1 
EOF day, month, End of file found on Job ends or 
year, time magnetic tape continues to next 


plot if any 


4 PARITY ER day,month, Unidentified error Record is skipped, 
| year,time found program continues 





21 December 1976 
CHARTG 
Page 6 


PROGRAMMER : Carl Bowin, Hartley Hoskins, J.M. Monyet 


ORIGINATOR: Carl Bowin 


DATE: May 1973 


REFERENCES: 


Meridional parts calculated from formula given on 
page 1186 of Bowditch, "American Practical Navigator", 
1962 corrected reprint, Govt. Printing Office, 
Washington, D.C. 0.0. Publ. No. 9. 
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CONV67 
E: Main Program 
PURPOSE: Convert gravity data to 1967 Geodetic 
Reference System and the new basic value 
of gravity at Potsdam, 981260, mgals. 
MACHINE: Sigma-7 
SOURCE JiANGUAGE: Fortran IV 
PROGRAM CATEGORY: Data Processing 
DESCRIP'TION: 
CONV67 converts gravity data, in GSUM format and blocked by 
50, from the 1930 gravity formula and Potsdam gravity value 
to the 1967 Geodetic Reference System and new Potsdam 
gravity values. The program makes use of the Asynchronous 


I/O available in XDS extended Fortran IV. 


INPUT: 


a) GSUM - blocked by 50 at 1930 datum (IREC=1) 


OUTPUT: 


a) GSUM - blocked by 50 at IGSN71 datum (IREC=2) and 
referenced to International Gravity Formula 1967. 
USAGE: 


{JOB 
IMESSAGE (Mag tape info) 
!ASSIGN F:l, (DEVICE, 9T) , (SN,XXXX), (IN), (TRIES, 10) 
{ASSIGN F:2, (DEVICE, 9T) , (SN,XXXX) , (OUT) , (TRIES, 10) 
1OLAY (BI), (UNSAT, (312), (305), (456), (3)) 
!RUN 

RESTRICTIONS: 


a) uses only tapes blocked by 50 
b) must have GINTF (theoretical gravity function) for 
1967 datum. 








ia 
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CONV67 continued 


Aerie it AN Sie ea, 


SUBPROGRAMS REQUIRED: GINTF 
OPERATIONAL CHARACTERISTICS: 


SENSE SWITCH OPTIONS - not applicable 
PROGRAM FLOW 
Using BUFF IN, BUFF OUT, ENCODE and DECODE,CONV67 


performs asynchronous I/O while converting observed gravity, 
Free-Air anomaly and Bouguer anomaly. 


ERRORS AND DIAGNOSTIC MESSAGES: 


Waiting for Input - the processing has halted temporarily 
while a block of data is read into memory 


Waiting for Output- the processing has halted temporarily 
while a block of data is written from 


memory 


End of File on ITAPE - end of file mark encountered on 
input tape 


End of File on JTAPE - end of reel foil encountered on output 
tape, no reel change will be made. 


Buffer In Error - a read error has occurred but it is not 
fatal ana processing will continue. 
Probably will result in some lost records. 

Buffer Out Error- a write error has occurred but it is not 


fatal and processing will continue, 
Probably will result in some lost records. 


PROGRAMMER: Lee Gove 
ORIGINATOR: Carl Bowin 
DATE: 1 December 1973 


REFERENCES : 


1) Geodetic Reference System 1967, Bureau Central De . 


l'association Internationale de Geodesie, 1967. 
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NAME: CR2G 
TYPE: Main Program 
PURPOSE: Converts land gravity meter counter readings 
to observed gravity values 
MACHINE: | Sigma-7 





SOURCE LANGUAGE: Fortran 
PROGRAM CATEGORY: Data Processing 


DESCRIPTION: 
Takes input of a counter reading and converts the counter 
reading to gravity, also inserts drift and tidal corrections. 
The program lists the data for each station, punches cards 
for sorting, and writes a GSUM format file with anomalies 
calculated in reference to IGF 1930. 


INPUT: 
Card 1: 
Conversion tables for the counter reading to relative milligal 
values (I2, F7.2)..70 cards 


Card 2: Sense switches (8011) * 
ISW(1) = 0 for printed output of computed values for each station 
1 for suppression of. printed output 


Isw(2) = 0 to punch output for gravity description program (GDS) 
' = 1 for suppression of punched output 
Isw(4) = 0 to output FILE TWO in GSUM format in preparation 
for sorting 
= 1 to suppress output into FILE TWO 
Isw(5) =,0 for meter drift correcticn 


1 suppression of drift correction 


Card 3: IGM(1),IGM(2),DRFTCO,LSRC, IELC, IGC (2A4, 2X,F10.5,315) 
IGM - gravity meter used (e.g. L&R G-18) 
If these are both blank, the type of gravity meter will 
be set to the default value of 'L&R G-18' 
DRFTCO - The correction factor for drift of the gravity meter 
If this is blank, or.set to 0.0, a drift variation of 
0.603 mgal/day is assumed (default value) 
Source code of GSUM output. Default value is 006 - the 
source for the G-18 meter. 
IELC - Elevation code for GSUM output. Default value is 09, 
IGc Gravity meter code for GSUM output. Default value is Ol. 


LSRE 








CR2G (continued) page two 


INPUT (continued) 
These are followed by groups of individual station counter 
reading cards. Each group is headed by three cards: 


a ab act See 


Card A: BASEG(1),BASEG(2) (F3.0,F6.2) 
The absolute gravity value for the reference station 
Card B: DENSE (F4.2) 
The assumed crustal density to be used in calculation of 
the Bouguer anomaly 
Card C: Counter reading card for the reference station. Drift 
is computed starting with the date on this card. 
Card D: Counter reading cards for those stations 
which will be referenced to the station(card C) 
Counter reading cards have the following format. 
(format of 17 May 1966): 
Station number (14), Day (12), Month (12), Year (I2), 
Time (14), Counter reading (F8.3), Latitude degrees 
(I2), Latitude minutes (F5.2), North or South (Al), 
Longitude degrees (13), Longitude minutes (F5.2), 
West or East (Al), Elevation F7.1), Time Zone (12), 
and Description (32Al). 


Card E: Either a counter reading card with all zeros (or blanks) 
except for the year value (card columns 9 and 10) - 
Signals the end of a group of stations. Program then tries 
to read a new absclute gravity value (card A above) 


OR A card with all zeros (or blanks) - signals the 
end of input data. 


OUTPUT: 


A. Unless sense switch (1) equals 1, records of the following format 
will be output to the line printer, along with a page heading, 


STAT = Station number 
DATE = Day, month, year, e.g. 10 Dec. 1970 becomes 101270 
TIME = Hour, minute 
LAT = Latitude 
i LONG = Longitude 
ELEV = Elevation 
| CR = Counter reading 
RELV = Relative value of gravity to counter reading 
| DIFF = Difference of gravity between two readings 
OBSG = Observed gravity 
GFREE = Free-air gravity 
BOUG = Bouguer gravity 
CLS = Tidal correction 
HONK = Honkasolo correction 





| 





_ERRORS_AND DIAGNOSTICS: None 
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CR2G (continued) page Three 


OUTPUT (continued) 


TZONE = Time zone corresponding to time 
GDATE = Converted GMT date and time 
DAYS = Days into the year 
TDIFF = Time difference from origin 
DRIFT = Drift correction that is being applied 


B. Unless sense switch (4) equals 1, a file in GSUM format will be 
output to unit number 2 in preparation for sorting. 


Cc. Unless sense switch (2) equals 1, cards will be punched for input to 
gravity description program. 


NOTE: A card is not punched for the reference station 


RESTRICTIONS: 1) CAUTION: If the drift of the meter is positive 
the value of DRFTCO must be negative. 


Note also that if a value of 0.00 is entered for 
DRFTCO, a value of 0.003 will be assumed. 


2) A maximum of 9000 cards can be input 
STORAGE REQUIREMENTS: 1010 decimal words 
SUBPROGRAMS REQUIRED: CDATE, CHGMT, GINTF,M2DY, TIDAL 


TIMING: Unknown 


PROGRAMMER: C. Bowin, J. Wolfe, S. Abbot 
ORIGINATOR: C. Bowin 


DATE: 1 August 1975 
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E: CR2G67 
PE: Main Program 
PURPOSE: Converts land gravity meter counter readings 





to observed gravity values 
MACHINE: Sigma-7 

SOURCE LANGUAGE: Fortran 

PROGRAM CATEGORY: Data Processing 


DESCRIPTION: 

Takes. input of a counter reading and converts the counter 
reading to gravity, also inserts drift and tidal corrections. 
The program lists the data for each station, punches cards 
for sorting, and writes a GSUM format file with anomalies 
calculated in reference to International Gravity Formula 1967. 


mr ae Eee nao ee 
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INPUT: 
Card l: 


Conversion tables for the counter reading to relative milligal 
values (I2, F7.2) 70 cards 


ne RO SCENE ORO 


Card 2: Sense switches (8011) 


Isw(l) = 0 for printed output of computed values for each station 
= 1 for suppression of printed output 

i ISW(2) = 0 to punch output for gravity description program (GDS) 
| _° = 1 for suppression of punched output 

Isw(4) = 0 to output FILE TWO in GSUM format in preparation 

for sorting 

i = 1] to suppress output into FILE Two 

Isw (5) O for meter drift correction 


1 suppression of drift correction 


Card 3: IGM(1),IGM(2),DRFTCO,LSRC, IELC,IGC (2A4,2X,F10.5,315) 
IGM - gravity meter used (e.g. L&R G-18) 
If these are both blank, the type of gravity meter will 
be set to the default value of 'L&R G-18' 
DRFTCO - The correction factor for drift of the gravity meter 
If this is blank, or set to 0.0, a drift variation of 
0.003 mgal/day is assumed (default value) 
LSRC - Source code of GSUM output. Default value is 006 - the 
source for the G-18 meter. 


TEM Nt IEICE ee 


IEFLC - Elevation code for GSUM output. Default value is 09, 
IGC = Gravity meter code for GSUM output. Default value is Ol. 





rR RR ERS GEM An ety 
een eH NS RINNE OAS ans nn SIAN elon 


35 


CR2G67 (continued) page two 


INPUT (continued) 
Tiese are followed by groups of individual station counter 
reading cards. Each group is headed by three cards: 


Card A: BASEG(1),BASEG(2) (F3.0,F6.2) 
The absolute gravity value for the reference station 
Card B: DENSE (F4.2) 
The assumed crustal density to be used in calculation of 
the Bouguer anomaly 
Card C: Counter reading card for the reference station. Drift 
is computed starting with the date on this card. 
Card D: Counter reading cards for those stations 
which will be referenced to the station(card C) 
Counter reading cards have the following format. 
(format of 17 May 1966): 
Station number (I4), Day (12), Month (12), Year (12), 
Time (14), Counter reading (F8.3), Latitude degrees 
(12), Latitude minutes (F5.2), North or South (Al), 
Longitude degrees (I3), Longitude minutes (F5.2), 
West or East (Al), Elevation F7,1), Time Zone (I2), 
and Description (32Al). 


et ee 


Card E: Either a counter reading card with all zeros (or blanks) 
except for the year value (card columns 9 and 10) - 
signals the end of a group of stations. Program then tries 
to read a new absolute gravity value (card A above) 


OR A card with all zeros (or blanks) - signals the 
end of input data. 


OUTPUT: 


A. Unless sense switch (1) equals 1, records of the following format 
will be output to the line printer, along with a page heading. 





STAT = Station number 
DATE = Day, month, year, e.g. 10 Dec. 1970 becomes 101270 
TIME = Hour, minute 
LAT = Latitude 
LONG = Longitude 
ELEV = Elevation 
' CR = Counter reading 
i RELV = Relative value of gravity to counter reading 
DIFF = Difference of gravity between two readings 
OBSG = Observed gravity 
GFREE = Free-air gravity 
BOUG = Bouguer gravity 
CLs = Tidal correction 


HONK Honkasolo correction 
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CR2G67 (continued) page three 


OUTPUT (continued) 


TZONE = Time zone corresponding to time 
GDATE = Converted GMT date and time 
DAYS = Days into the year 
TDIFF = Time difference from origin 
DRIFT = Drift correction that is being applied 


B. Unless sense switch (4) equals 1, a file in GSUM format will be 
output to unit number 2 in preparation for sorting. 


C. Unless sense switch (2) equals 1, cards will be punched for input to 
gravity description program. 


: NOTE: A card is not punched for the reference station 


.RESTRICTION3: 1) CAUTION: If the drift of the meter is positive 
the value of DRFTCO must be negative. 


Note also that if a value of 0.00 is entered for 
DRFTCO, a value of 0.003 will be assumed. 


2) A maximum of 9000 cards can be input 
STORAGE REQUIREMENTS: 1010 decimal words 
SUBPROGRAMS REQUIRED: CDATE, CHGMT, GINTF,M2DY, TIDAL 
TIMING: Unknown 
ERRORS AND J*IAGNOSTICS: None 
PROGRAMMER: C., Bowin, J. Wolfe, S. Abbot 


ORIGINATOR: C. Bowin 


DATE: 1 August 1975 
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NAME: CRWT3 
TYPE: Main Program 
PURPOSE: To calculate the pressure at the base of 

a crustal column (Kg/cm~). 
MACHINE: Sigma 7 


SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Mathematical (equation solving) 


DESCRIPTION: 


Reads U. of Toronto World Seismic Refraction 
Compilation at W.H.O.I. SPFMT format. Data may 
input on cards or mag tape. 


Table look-up values for the conversion of compressional 
seismic velocity to density are entered during initialization. 
Compensation depth (e.g. 40 km) is also entered during 
initialization, Seismic refraction data of SPFMT format 

is read and the pressure at the compensation depth 

is then calculated. Crustal thickness’, average crustal 
velocity and depth to mantle are alee calculated and output 

in the SPFMT format. 


INPUT: 





Card 1: Sense switch options: Put sense switch 0 in column 80. 


Isw(0) = 1 to list intermediate values for os 
Isw(26)=1 to output on line printer only 

Isw(32) =1 to read SPFMT data from two cards per record 
Isw(33) =1 to write SPFMT data on two cards per record 


; / Card 2: ICTAB, DCOMP (15,F10.0) 

f [CTAB = 0 for Nafe-Drake Density Table 
1 for Woollard Density table 
depth of compensation (Km). 


nowou 


1XCOMP 


Card }: Density table cards (10F8.3) 10 values per card 


j 
' 
; 
} 
| Card(s) 4: (optional) SPFMT data cards, if data is on cards 
| Card 5: !EOD if data is on cards 
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CRWT3 





OUTPUT: Data can be output either to mag tape or cards, 
depending on sense switches and control cards. 
If rIsw(0) = 1, values read in and calculated are 
listed with annotation on the line printer. 


SARA NEI FILER 


USAGE: 
Assign F:1 to input device; F:2 to output device 
RESTRICTIONS: 


STORAGE REQUIREMENTS: Unknown 





SUBPROGRAMS REQUIRED: EVIL, EXIT, ISW, NAVIN, PINOT, STAT, TODAY 


TIMING: Undetermined 


An a ne een en sername ena ey 


ERRORS AND DIAGNOSTICS: If ISW(0) = 1, the program outputs annotated 
lists of values read and calculated. 





PROGRAMMER : Carl Bowin 
ORIGINATOR: Carl Bowin 


DATE: 2 October 1974 


' 
' 
, 
' 
i 
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NAFE~DRAKE EXPERIMENTAL RELATIONSHIP 
(In Talwani, Sutton, and Worzel, 1959 ] 
JGR, v. 14, No. 10, p. 1548) | 
(Picks by C. Bowin) : 
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VEL-DENS RELATIONSHIP 
(From Woollard (1959) ) 


VEL. 
Se | oe Seles lee lee 





1.0 1.62 4.0 7.0 
1.1 4.1 ure | 
1.2 4.2 7.2 
a 4.3 Tea 
1.4 4.4 7.4 
Lad 4.5 7.5 
1.6 4.6 7.6 
1.7 4.7 7.7 
1.8 4.8 7.8 
1.9 4.9 7.9 


























2.0 5.0 8.0 
2.1 5.1 8.1 
2.2 5.2 8.2 
2.3 Sas 8.3 
2.4 5.4 8.4 
2.5 5.5 8.5 
2.6 5.6 8.6 
2.7 Set 8.7 
2.8 5.8 8.8 
2.9 sae 8.9 
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NAME : DMABLK 

TYPE: Main Program 

PURPOSE: Converts blocked DMA format data to blocked GSUM 
format data 

MACHINE: Sigma-7 


SOURCE LANGUAGE Fortran IV 
PROGRAM CATEGORY: Format conversion 


DESCRIPTION: 
DMABLK is a modification of DMA which, in turn, is a 
modification of program ACTG3. 


DMABLK sreads DMA data blocked by 50 and converts data with 
elevation codes 1 and 3 to GSUM formatted data blocked by 50. Sarce 
code and beginning sequence number are entered at run time; sequence 
number is output in station number field. Data records with elevation 
codes other than one and three are output to another tape in DMA 
format for further processing. 


INPUT: 


(o 


ard 1: NSEQ (110) - starting sequence number 


Q 


ard 2: ISORC (I5) - source code for this data 





ERRORS AND DIAGNOSTICS: 


'WAITING FOR I/P' ~ input buffer not yet filled when checked 
'END OF FILE ON ITAPE' - end of file found on input tape 

'NUFFER IN ERROR' - input buffer error detected by ICHECK 
‘WAITING FOR OUTPUT’ - output buffer not yet filled when checked 
‘END OF FILE JTAPE' - end of reel encountered on output tape 


"BAD JKEY' - end of reel encountered on output tape 


‘ALI. DONE' 











TT TT LL TN TEE 


OUTPUT: 


On unit reference number 2: GSUM records for elevation codes 1 
On unit reference number 3: DMA records for other elevation codes 


The number of records input, records output to each output tape, 


and ending sequence number are output to line printer, 


USAGE: 





Assign F:1 to input device; F:2 to output device for GSUM records; 
F:3 to output device for ‘oddball' records (elevation codes 
other than 1 and 3). 
RESTRICTIONS: None 
STORAGE REQUIREMENTS: Unknown 
SUBPROGRAMS REQUIRED: ALTD, XEROX Fortran IV Library 
TIMING: about 1,000 records per minute 
PROGRAMMER: Lee Gove, C. Bowin 


ORIGINATOR: C. Bowin 


DATE: 3) July 1975 
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NAME: 


PE 





PURPOSE: 


MACHINE: 


DMAP 
Main Program 


Converts digitized position in inches to 
latitude and longitude (radians) 


Sigma~7 


SOURCE LANGUAGE: Fortran IV 


PROGRAM CATEGORY: Format conversion 


DESCRIPTION: 


INPUT: 


Digitized x and y coordinate values from a digitizing 
table tor the four corners of a map region and read 

by the program along with latitude and longitude 

of each point. From this information the angle of 

tilt of the map and its scale are determined. Other 

x and y coordinate data points are then read in and the 
latitude and longitude of each is calculated.to a 
precision governed by the input value for the variable 
EPSIL. 


Card 1: sense switches 


SSW (2) 1 to list intermediate values 
SSw (3) 1 to list date and SMIN for each data point 
Sssw(5) = 1 to output SMIN only if greater than EPSIL 


Card 2: ITAPE, JTAPE, EFAC, EPSIL (215, 2F5.2) 


Card 3, 4, 5, and 6: ICODE, xC(J), YC(J),N1, N2,LAT(J) LONG(J) 





ITAPE - unit number for input device 

JTAPE - unit number for output device 

EFAC - factor (0.1 to 1.03) used on iteration for 
estimated latitude to converge on true latitude 

EPSIL - tolerance (in meridional parts) by which estimated 


latitude must match meridional parts for true latitude. 


(11,1X%,5,3,1X%,F5.3,313,75) 


ICODE = 9 for cards 3, 4, 5 and 6 for initialization 


J in do loop is = 1 for bottom left corner, 


then 2,3,4 counter clockwise around map corners 


xc (J) = X coordinate value in inches 
yc(J) = Y coordinate value in inches 
Nl = not used 
N2 = not used 


LAT(J)= Latitude 
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Card 7: ICODE; XP, YP, NDA, NMO, NYR, NHM 
(Il, 1X, F5.3, 1X, F5.3, 313,15) 


Se ORL te ls ising EME SAE 


ICODE =5 for data points | ij 
XP = X coordinate value in inches | # 
YP = Y coordinate value in inches 
NDA = Day 
NMO = = - Month 
NYR = Year 

= 0 on terminator card to indicate last 

data point has been processed. 

NHM = Hours and minutes (24 hours clock) 


OUTPUT: 


Outputs record containing latitude and longitude 
for each input data point. 


USAGE: Assign input and output devices compatible with ITAPE 
and JTAPE values entered on card 2. 


RESTRICT{CONS: None 

STORAGE REQUIREMENTS: Undetermined 

SUBPROGRAMS REQUIRED: CALSC, DMTOR, ISW, PARTM, RTODM 
TIMING: 
ERRORS AND DIAGNOSTICS: Undetermined 

PROGRAMMMR: Carl Bowin 


ORIGINATOR: Carl Bowin 


DATE: 26 September 1975 
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NAME : _ _DMOD | a 

3 | TYPE: Main Program | @ 
i 

PURPOSE: To punch digitized polygon points for crustal 


models digitized on a digitizing table 
MACHINE: Sigma 7 
SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Format Conversion 
DESCRIPTION: 


This program converts the coordinates for polygon points 
punched by a digitizing table to the correct format for 

use in a TALPLO™ run and punches the cards necessary for all 
polygon points using origin and scale factors input to this 
program at run time, Input and output are always on cards. 
For instructions in the use of the digitizing table, see 
comments under USAGE. 


The program initializes by reading sense switches, scale factors 
and coordinates origin. It sets the origin to the coordinates 
of first digitized point entered, uses the second digitized 
point to establish a horizontal reference line and then 
calculates X and Y distances of all points from the origin 

using the input scale factors. It punches cards with the % 
adjustedand scaled Xand Y coordinates along with the 
identification number of each polygon; one card for each 

polygon in which the point occurs. 


INPUT: ; ‘a 
Card 1: Sense Switch Options: (8011) 
ISw(1) = 0 for second point to right (+) of origin 


= 1 for second point to left (-) of origin 


Card) 2: XFAC,YFAC,XORG,YORG (4 F10.0) ; 


XFAC = scale factor in X direction (km/in) 
YFAC = scale factor in Y-direction (km/in) 
XORG = X-coordinate of origin of model (km) 
YORG = Y-coordinator of origin of model (km) 


The following cards are all punched at the digitizing table 


Card 3: XA,YA,IA,KP1,KP2,KP3 (2F10.3,15,314) 
XA X and Y Coordinates from digitizing table from 
YA its origin 


IA =0 (same format 38 card(s) 5,below, but not used 
or this point) 
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Card(s) 5: Values from the digitizing table for the polygon 
points XP,YP, ICODE,KP1, KP2, KP3 (2F10.3,15,314) 


XP xX and Y coordinates of the polygon point 


= 9 for last point of a polygon 

= 8 for X=-3000 km 

= 7 for X=+3000 km 

(ICODE=7 or 8 is used in this program only. Points with 
ICODE = 7 or 8 are punched by this program with ICODE = 0). 
KP1 numbers of the polygons for which this point forms 
KP2 a boundary. One output card will be punched for each 
KP3 polygon listed here. 


last 
a] 


i To indicate end of input cards, an additional polygon point 
card with ICODE set equal to 99 must follow the last digitized point. 


OUTPUT: On line printer: the digitized points 


On cards: Cards in the correct format for use in TALPLOT 
run. Values punched are X coordinate in km., 
Y coordinate in km., ICODE, and the number of 
the polygon for which the card was punched. 
Cards will usually not be in the correct order and 
there may be some extra cards (if the first 
polygon point is not the first polygon point 
for another polygon that it defines). 


USAGE: _ 
A crustal model is prepared which is composed of various 
polygons of various densities. The polygons are numbered 
arbitrarily, with the exception of polygon number 1, which is 
a water layer, and the final polygon, which must be number 99. 
One point of each polygon is designated the "starting point". 
Points define the polygons by proceeding clockwise from the 
starting point and ending exactly at the same point. Polygon 
points must be arranged in order for input to the TALPLOT program, 
but need not be digitized in order nor input in order to the 
Program UMOD. Output from program DMOD must be rearranged for 
output to TALPLOT. 


Sr er 


eS aT) 


At the digitizing table, the first point digitized must be the 
origin. The second point is a point on the same X axis as the 
origin, and is used to establish the horizontal for the model. 

i The remaining points may be digitized in any order. Before 

lining up a point, ICODE is set in the leftmost thumbwheel switch 
position on the manual entry switches. ICODE = 9 to indicate the 
last point of any given polygon. ICODE = 7 will punch a card at the 


same Y coordinate as the point under the digitizing screen, but 
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DMOD continued, page 3 


with +3000 km as the X coordinate, ICODE = 8 creates a 

card with ~3000 km as the X coordinate. These are used at the | 
sides of the model to extend the edges of the polygons beyond i 
the area for which gravity will be calculated in order to | 
avoid an edge effect. In addition, the numbers of the polygons 
for which the given point delineates a boundary are set in 

the three pairs of thumbwheel switches to the right of the 
leftmost thumbwheel switch. In the DMOD program, a polygon 
point coordinate card is punched for each polygon number 
inserted here. 


eH MICRA TN ML SRN NESE 


RESTRICTIONS: 
1) When punching the first and last cards for each polygon 
on the digitizer, make sure that the cards read exactly the 
same values - otherwise the polygon will not close. 
2) Right and down are positive on the model graph. That means 
that Y coordinates of polygon points below the sea surface 
are positive numbers. 


3) Input and output must be on cards. 


STORAGE REQUIREMENTS : Unknown 
SUBPROGRAMS REQUIRED: CALSC, EXIT, ISW 


TIMING: Undetermined 

ERRORS AND DIAGNOSTICS: None 
PROGRAMMER: Carl Bowin 
ORIGINATOR: Carl Bowin 


DATE: 24 July 1975 
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GFLDE 

Main Program 

Calculation of regional free-air anomaly values for 

a given region from spherical harmonic coefficients. 
MACHINE: SIGMA 7 


SOURCE LANGUAGE: FORTRAN IV 


PROGRAM CATEGORY: Data Processing 


DESCR: PTION: 

Area bounds and increment size for region of interest 
are entered. GFLD1 next reads spherical harmonic coefficients 
defining a gravitational field. The program then steps across the 
region defined by the input area bounds calculating the regional 
gravity field at each position increment. Program outputs the 
regional free~air anomaly value in the free-air position of 
SEAG1 format. 


INPUT: 


Sense switches (8011) 
Isw(4) = 1 to list data on high speed printer 
ITAPE, JTAPE (215) 
ITAPE = input device number (used for input of 
spherical harmonic coefficients) 
JTAPE = output device number 
ITOP, IBOT,ILEFT, IRIGT, INC (5I5) 
ITOP integer degree for top area boundary 
IBOT integer degree for bottom area boundary 
ILEFT integer degree for left area boundary 
IRIGT integer degree for right area boundary 
INC integer degree increment for do loop in 
defining -positions at which regional free-air 
anomalies will be calculated. 
Spherical harmonic coefficients 
Format (12,2X,1I2,2X,E11.4,2X,E11.4) followed by 2 
!EOD card - this input can be on magnetic tape or 
disc by appropriate value of ITAPE, 
on card 2 above 


OUTPUT: 
On unit reference JTAPE. The data in SEAG] format with 
regional free-air values in free-air field, 





GFLD1 


USAGE: Assign input and output devices to ITAPE and JTAPE 
values input on card 2. 


RESTRICTIONS: Wone 
STORAGE REQUIREMENTS: Unknown 


SUBPROGRAMS REQUIRED: ISW, FLD2, standard Fortran IV Library 
TIMING: 

ERRORS AND DIAGNOSTICS : 

PROGRAMMER : 

ORIGINATOR: 


DATE: 
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NAME: ; GFLD2 
PE: Main Program 
PURPOSE: Calculates regional free-air gravity 





anomalies from spherical harmonic coefficients 
entered at run time for location of input GSUM 
records, 

MACHINE: Sigma-7 





SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Data processing 


DESCRIPTION: 
GFLD2 reads spherical harmonic coefficients defining 
a gravitational field. A regional gravity value is 
EE computed from the input coefficients at latitude 
and longitude locations read from input GSUM records. 


Program outputs regional free-air value in regional 
gravity position of GSUM format. 


INPUT: 
Card 1: Sense switches (8012) 


Isw(5) = 1 to list intermediate values for BV, COSD on 
. line printer (SUB, FLD2) 
ISw(12)= 1 to list date identification on line printer 
(SUB. GINOT) 

Isw(26)= 1 to output on line printer only (SUB. GINOT) 
ISW(29)= 1 to process only selected source codes 

= 2 to skip selected source codes (SUB. GINOT) 
ISw(30)= 1 for input data on cards (SUB. GINOT) 
ISW(31)=1 for output data on cards (SUB. GINOT) 
Isw(40)= 0 to process without bounds 

= 1 to process with bounds using the Data 

Location Table (SUB. GINOT) 
ISw(60)= 1 to process only Abstracter output (SUB. GINOT) 
ISW(61)= 1 to replace FA, BG, ELEV, LAT, AND LONG 
with averayed values (SUB. GINOT) 


Card(s) 2: Spherical harmonic coefficients format (12,2X,12, 
2X,E11.4,2X,E11.4) followed by a !EOD card 


F . Card 3: (optional) ISRC (1615) See example for SAO Standard Earth 1969 
If ISW(29) does not equal zero, enter here up to 16 source 
codes to be selected (ISwW(29)=2) or skipped (ISW(29)=1). 


If input is on magnetic tape: 
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GFLD2 


Card(s) 4: Serial number(s) of input tapes, one per card, 
in columns 1 to 4 (used by subroutine MOUNT) 


Card 5:  EITP in columns 1 to 4 - signals end of input tape 
serial numbers 


If input is on cards: 
Card(s) 4: data cards in GSUM format-two cards per record 
Card 5: !EOD card 


If output is to magnetic tape: 


Card(s) 6: Serial number(s) of output tapes, one per 
card in columns 1 to 4 (used by subroutine MOUNT). 


Card 7: EOTP in col. 1 to 4 - signals end of output tape serial 
numbers. 


There will be no cards 6 or 7 if output is on cards. 


OUTPUT: On unit reference no. 2 - the data in GSUM format, 
with regional free-air values in regional free-air field. 


USAGE: Assign F:1 to input device; F:2 to. output device 
RESTRICTIONS: None 
STORAGE REQUIREMENTS: Unknown 


SUBPROGRAMS REQUIRED: FLD2,GINOT,ISW, MOUNT, STAT, TODAY 
Standard Fortran IV Library 


TIMING: Undetermined 

ERRORS AND DIAGNOSTICS: 'EOF FOUND ON INPUT TAPE’ 
PROGRAMMER: A. Folinsbee, Carl .Bowin 
ORIGINATOR: Carl Bowin ) 


DATE: 5 August 1975 
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: 
NAME: GRAFG2 ii 
TYPE: Main Program 
PURPOSE: To plot one variableversus another 
MACHINE: Sigma - 7 
: SOURCE _LANGUAGE: FORTRAN IV 
j ' PROGRAM CATEGORY: Graphical Display 
DESCRIPTION: 
It uses input either in GSUM (gravity summary) format, or WHOLG 
(WHOI lunar gravity) format. It uses latitude and longitude for 
processing bounds. In addition, it can use either start and end 
dates or altitude bounds (in lunar format) as further limits to 
the data processed, if desired. 


INPUT: 


CARD _1: LABEL “(20A4) 
information for plot label 


CARD 2: sense switch settings: 
options 
Isw(0) 1 to output values for testing 


: GRAFG2 creates’ a graph, plotting one variable against another. 
| 
i 
i 
i 
| 
| 
' 


Isw(3) = 1 to plot Lunar gravity (calls GETL) 

Isw(4) = 1 to read SVEC altitude bounds for 
lunar data and process data only 
within these altitude bounds. 

J ISW(7) = 1 to input new area bounds for next plot 

ISsW(8) = 1 to suppress plotting grid 

ISsw(10) = 1 to start a new graph 

ISW(12) = 1 to list date identification 

Isw(13) = 1 to anotate plot point with DATAW 

ISsw(30) = 1 to read GSUM data from cards 

ISswWw(34) = 1 to read Lunar data from cards 


, 
i 
[ 
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GRAFG2 continued -2- 


CARD 3: ITAPE, NX, NY, NZ, NW, IDEC, KPT, KHT (8125) 


ITAPE = input tape device number (must agree with 
control cards) Should = 105 to read from 
cards. 


NX = PLT(NX) for X variable 
NY = PLT(NY) for Y variable see page 3 
NZ = PLT(NZ) for Z variable 
NW = PLT(NW) for W variable 
IDEC = code for decimal point in annotation of 
DATAW 
KPT = plot size factor-varies size of entire plot 


(should = 1 in standard plot) 
KHT = character height factor 
(varies by multiples of 0.07) 


CARD 4: XFAC, ¥FAC, SFAC, WFAC, ANGB, XINC, YINC 
(7F10.0) 


XFAC engineering units per inch on X axis 


YFAC = engineering units per inch on Y axis 

ZFAC = engineering units per inch on Z axis 

WFAC = engineering units per inch on W axis 

ANGB = angle for DATAW anotation 

XINC = spacing in decimal inches for anotation in 
x-direction 

YINC = spacing in decimal inches for anotation in 
y-direction 


CARD 5: TOP, BOT, DLEFT, RIGT (4F10.0) 


TOP 

BOT bounds for graph in 
DLEFT engineering units 
RIGT 


‘CARD(8)_ 6-9: area bounds in degrees and decimal minutes, one 
per card (1I5,F10.0) 


(6) IDEG, AMIN (TOP) 


Cty 2° " (BOTTOM) 
(8) u “ (LEFT) 
 ) . (RIGHT) 


Note: The sign of the minutes must agree with the sign 
of the degrees (e.g. -36 -30.0). 





GRAFG2 continued 


‘ 
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Values for NX,NY,NZ, and NW depend on input format. 


For 


GSUM format 

for KGHM 
for ISORC 
for ELEV 
for DEPTH 
for HEIGHT 


for. FA 
for BG 
for TC 
for BGCOM 
for RFA 
for GOBS 


(time) 

(source code) 

(elevation) 

(depth) 

(both depth and elevation in the 
same parameter) 

(free-air anomaly) 
(Bouguer anomaly) 

(terrain correction) 
(complete Bouguer anomaly) 
(regional free air) 
{observed gravity) 


for HEIGHT/BG 


lunar data (WOLG format) 


= 1 for SVEC 


(vehicle distance from center of 
mass in km) 


for SVEC-1738.0) (vehicle distance from center of 


for ALTL 


for AZ 
for SINC 
for STAC 
for SNAC 
for FA 
for THEOR 
for GOBS 
for ELEV 


for ELFL 


for BG 
for TACEL 


mass in km minus radius) 
(laser altitude) 


for (SVEC-ALTL) -1738 .0) 


(azimuth) 

(inclination) 

(tangential acceleratior) 

(normal acceleration) 

(free-air anomaly-radial acceleration) 
(theoretical gravity) 

(observed gravity) 

(elevation of topography with reference 
to radius) 

(laser altitude, with reference to 
radius) 

(Bouguer anomaly) 

(total acceleration) 





GRAFG2 continued 


CARD 10: (optional) BSVEC,TSVEC (2F10.3) 
spacecraft altitude bounds for lunar data 
if ISW (4) =1. 

BSVEC - lower altitude limit 
TSVEC - upper altitude limit 


CARD 11: ISTDA, ISTMO, ISTYR, ISTHM, IENDA, IENMO, 
IENYR, IENHM, ISKP 
(332, 34, SX, 312, 14, 5X, 15) 


Start date for processing 
ISTDA - day 

ISTMO - month 

ISTYR - year 

ISTHM - time 


End date for processing 
IENDA - day 

IENMO - month 

IENYR - year 

IENHM - time 


ISKP number of records to be skipped 
at start of job. Much faster than 
start date alone. 


To avoid checking for start date, use a blank 
card. Plotting will then begin with the first 
record. 


CARD 12: ITAPID (14) 
Serial number of input tape(s), one per card. 


CARD_13: EITP in columis 1-4 
(signals end of input tape serial numbers) 
There will be no cards 12 and 13 if input is on cards, 
CARD(s)_14: 
additional start and end dates for processing 
may be inserted here - last card must have 
start date = 99 to end processing. 


OUTPUT: 


Input parameters are listed on line printer. Graph can be 
output either to versatec or to calcomp plotter. 
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GRAFG2 continued -5§. 





USAGE: 
Any number of additional graphs may be run in the same job, 
by use of sense switches, and inserting additional data cards 
6-11, to process data with new area bounds, or just a new 
start date (card 11). 


RESTRICTIONS: 


STORAGE REQUIREMENTS: 30 peak core pages (Core 15), on the limit card 
SUBPROGRAMS REQUIRED: DMTOR, EXIT, FIND, GETG, GETL, GRIDG, ISW, 


NUMBER, PLOT, PLOTS, SETSKP, SKPREC, SPOT, STAT, SYMBOL, TODAY, 
WHERE 


TIMING: Undetermined 


ERRORS AND DIAGNOSTICS: 
‘END DATE PASSED" date 





PROGRAMMER: Carl Bowin 
ORIGINATOR: Carl Bowin 


DATE: 2 June 1975 
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NAME: GRAV1 
TYPE: PROGRAM 
PURPOSE: ’ Converts data input at format of 8 July 1969 to 


GSUM format, 
MACHINE: SIGMA-7 
SOURCE LANGUAGE: FORTRAN IV 
PROGRAM CATEGORY: Format conversion 


DESCRIPTION! GRAV1 converts data input at format of 8 July 
1969 to 128 character GSUM format. Latitude 
and longitude are output in decimal degrees. 
Observed gravity can be calculated from FA 
anomaly, and is referenced to the IGSN-71 datum. 
The Bouguer anomaly is calculated, using reference 
density entered at run time. Anomalies may be 
input either in 1930 or 1967 International 
Gravity Formula, but all output is in 1967 IGF. 
If necessary, station numbers are assigned, 
numerically starting with first input record 
as 1. Resulting records can be listed on line 
printer, or intermediate values can be output, 
if desired. Data may be input and output 
either on cards or on magnetic tapes, depending 
upon control cards. 


INPUT: 
Card 1: Sense switch settings - Punch SSW(0) in column 80. 
ssw(0) = 1 for input elevation in feet 
= 0 for input elevation in meters 
ssw(2) = 1 for input depth in fathoms 
= 0 for input depth in meters 
ssw(3) = 1 to calculate observed gravity from FA 
anomaly 
ssw(4) = 1 for input data at Potsdam Reference 


System and 1930 International Gravity Formula 
0 for input data at IGSN-71 datum and 1967 IGF 





ee 





ssw(6) = (1 for incorporating terrain correction 
‘= 0 not to use terrain correction 
ssw(8) = 1 to print values of THEO, FELEV, & TH67 
ssw(13) = 1 to assign station numbers, numerically, 
starting with first input record as 1 
SSW(26) = 1 ‘to output on line printer only (GINOT) 
Ssw(31) = 1 to output data on two cards per record 


(GINOT) 


Card 2: CRDEN (FIO.0) 
CRDEN - assumed crustal density 


nec tenttttn ete CTT 


Card 3: If output is to be onmag tape, output tape serial 
number (I4), in columns 1-4, one per card, as 
many cards as necessary 


Card 4: EOTP in colums 1-4. Signals end of output tape serial 
numbers. Not necessary if output is on cards or 
line printer 


Card(s) 5: Data cards if input is on cards 


Card 6: !EOD 


QUTPUT: Assumed crustal density, as input, is output to line 
printer. Records are output to line printer or output © 
device depending on sense switch options’. Records 
output to line printer begin with the second character 
of the record, and do not include IREC2. In addition, 
intermediate values for theoretical gravity may be 
output. 


USAGE: Assign F:1 to input device; F:2 to output device. 


RESTRIC1'IONS: None 


STORAGE REQUIREMENTS: 21 peak core (pages) 





st eae ° : : -3- 


[%y ~ SUBPROGRAMS REQUIRED: AREAK, STAT, GINOT, GINTF, GI67F, ISW, 
: sk aE, - NAVIN, EVIL, RTDM2 


ae 


> 


TIMING: Unavailable 
ERRORS AND DIAGNOSTICS: None 
PROGRAMMER: Carl Bowin 


ORIGINATOR: Carl Bowin 


‘DATE: 27 May 1975 
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GSTOG 


PR ky 


Main Program 


Converts data input in SEAG] or SEAG2 format : 4 
to 128 character GSUM format. ze 
Sigma-7 


SOURCE LANGUAGE: Fortran IV 


PROGRAM CATEGORY: Format conversion 


DESCRIPTION: 


INPUT: 


Card 


Card 


Card 


Card 


GSTOG is our standard conversion program. It inputs 

data in SEAG format and outputs 128-character GSUM 

format. It tests for invalid observed gravity 

and invalid free-air anomaly values. If either 

data parameter is invalid, that record is rejected. 

Checks for no depth or elevation information and if 
lacking sets Bouguer anomaly value to invalid code (999.0). 


If IREC = 1, input data is at Potsdam system and used 
IGF 1930 (SEAG1 format). 


If IREC = 2, input data is at IGSN71 and used 
IGF 1967 (SEAG2 format) and proper output will be provided 
at GSUM format. 


1: Sense Switch options - 
SSW(26) = 1 to output on line printer only (GINOT) 
Ssw(31) = 1 to output data on two cards per ‘record 

(GINOT) 


2: ISORC, IDCOD, IELC, IGC, BIAS (415,F10.0) 


ISORC = source code number 
IDCOD = O for ID by date 
= 1 for ID by station number 
IELC = elevation code 
IGC = gravity meter code 
BIAS = gravity meter bias (in mgals) 


3: NFILE (15) NFILE = number of files to be input 


4: EITP in columns 1-4 








GSTOG 


Card 5: If output is to be on mag tape, cutput tape serial 
number (14), in columns 1-4, one per card, as 
many cards as necessary. 


Card 6: EOTP in columns 1-4. Signals end of output tape 
serial numbers. Not necessary if output is on cards 
or line printer. 





OUTPUT: 


Input parameters are output to line printer. Number of 
records output and number of records rejected are output 

to line printer. 

Data records can be output on cards if desired by appropriate 


to line printer and if so, begin with the second character 
of the record and do not include IREC. 


USAGE: 

Assign F:l1 to input device; F:2.to output device 
RESTRICTIONS : 
STORAGE REQUIREMENTS: 23 peak core pages (core, 12) 


SUBPROGRAMS REQUIRED: BICOR, EVIL, EXIT, GINOT, ISW, MCVOL, STAT, 
TODAY, UNPKBY 


TIMING: CPU time = 12.9 min. to process 10,500 input records; 
8,400 output records. , 


ERRORS AND DIAGNOSTICS: 
PROGRAMMER: 
ORIGINATOR: Carl Bowin 


DATE: 10 July 1975 


: use of control cards and sense switches. Records may be output 
' 
i 































: 





GS TOG67 
TYPE: Main Program 
. PURPOSE: Converts data input in SEAG1 or SEAG2 format 





to 128 character GSUM format and converts Potsdam 
system data to IGSN71 

MACHINE Sigma-7 

SOURCE LANGUAGE: Fortrah IV 





PROGRAM CATEGORY: Format conversion 


DESCRIPTION: 
GSTOG is our standard conversion program, It inputs 
data in SEAG format and outputs 128-character GSUM 
format. It tests for invalid observed gravity 
and invalid free-air anomaly values. If either 
data parameter is invalid, that record is rejected. 
Checks for no depth or elevation information and if 
lacking sets Bouguer anomaly value to invalid code (999.0). 





If IREC = 1, input data is at Potsdam system and used 
IGF 1930 (SEAG1 format). OUTPUT is at IGSN 1971. 


If IREC = 2, input data is at IGSN71 and used 
IGF 1967 (SEAG2 format) and proper output will be provided 
at GSUM format, 


INPUT: 
Card 1: Sense Switch options - 


SSW(26) = 1 to output on line printer only (GINOT) * © °°") | 
Ssw(31) = 1 to output data on two cards per record ; 


i 
(GINOT) i 
Card 2: ISORC, IDCOD, IELC, IGC, BIAS (415,F10.0) 
ISORC = source code number 
i IDCOD = 0 for ID by date 
i = 1 for ID by station number 
i IELC = elevation code 
: IGC = gravity meter code 
BIAS = gravity meter bias (in mgals) 


Card 3: NPFILE (15) NFILE = number of files to be input 


Card 4: EITP in columns 1-4 


ee : 








, 
' 
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GSTOG 67 


PEIN iri 


Card 5: If output is to be on mag tape, output tape serial ; 
number (I4), in columns 1-4, one per card, as 
many cards as si al 


“Card 6: EOTP in columns 1-4. Signals end of oust tape 
serial numbers. Not necessary if output is on cards 


or line printer. : 


OUTPUT: 


Input parameters are output to Tine printer. Number of 
records output and number of records rejected are output 


to line printer. 


Data records can be output on cards if desired by appropriate 
use of control cards and sense switches. Records may be output 
to line printer and if so, begin with the second character 

of the record and do not include IREC. 


USAGE: 


Assign F:1 to input device; F:2 to output device 


RESTRICTIONS: 


STORAGE REQUIREMENTS: 23 peak core pages (core,12) 





SUBPROGRAMS REQUIRED: BICOR, EVIL, EXIT, GINOT, ISW, MCVOL, STAT, 
TODAY, UNPKBY 


TIMING: cpu time = 12.9 min. to process 10,500 input records; 
8,400 output records. : 


ERRORS AND DIAGNOSTICS: 


a 


PROGRAMMER: 


a ee 


ORIGINATOR: Carl Bowin 


DATE: 10 July 1975 














NAME : G3DCP 
TYPE: Main Program 
E | 
| PURPOSE: Computes gravity anomaly (for both flat and 
. | curved planetary surfaces), potential field (for 
flat surfaces), and mass per unit area for a set 
. | of polygonal laminae comprising a three-dimensional 
= | crustal structure model. 
| 
| MACHINE: XDS Sigma 7 


SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Modeling 
DESCRIPTION: 


The program is based on a method developed by Talwani 
and Ewing (1960). The three-dimensional body is represented by 
depth contours. The depth contours are replaced by flat polygonal 
laminae, The gravity anomaly is evaluated for the laminae by a formula 
expressed in a closed form. A correction is then calculated for the 
curved surface and this correction is applied to the flat anomaly to 
arrive at a curved anomaly (see Bowin et al., in press}. The anomaly 
for the entire body is then obstained by a numerical integration for 
the values of the individual laminae, The Z-axis is chosen positive 
down. The X and Y axes can lie along any two mutually perpenticular 
directions in the horizontal plane. The points where the anomaly is 
to be calculated are called field points. These are read from cards. 
The anomaly for each lamina is calculated in turn and a numerical inte- 
gration is then performed to obtain the anomaly for the entire body. 
In additian the potential field and mass per unit area is also 
calculated. 


INPUT: 


Cards (via F:1) 
Card 1: Sense switch card 


Card 2: COORD Initialization card 
Transverse Mercator Coordinate for X (FX) 
Transverse Mercator Coordinate for Y (FY) 
Latitude in Radians for point (X,Y) (RLAT) 
Longitude in Radians for point (X,¥) (RLONG) 
Starting switch (IST) 


; 
i 
| 
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G3DCP continued page 2 
Input (continued) 
Card 3: 


Reference Weight (RFW:F8.1) 
Reference Density (RFD;F4. 2) 
Reference Gravity (RFG/F5.1) 


FILE: (via F:3) 


The data representing the body as output by G3DCPREP. 


OUTPUT: - 


Printed output of various integration and corrections for 
each lamina. 


USAGE: 


In spite of indications to the contrary G3DCP, when used with 
LSORT and G3DCPREP is reasonably straight forward to use. 


STEP 1 Definition of the bodies to be used 


Each body for which an anomaly will be calculated must be © 
defined lamina by lamina. A file is created for each body 

which has a group of records of the following form for each 
lamina. 


Record 1 
Lamina number (NCNT; 12) 
Density (RHO;F10.4) 
Vertical distance from origin (2;F16.6) 


Following Records 


X coordinate of polygon point (X;F12.5) 
Y coordinate of polygon point (Y;F12.5) 
Last point flag = 1 for last point in lamina (LSLPT;I1) 


| 

| 
: PRINTER (via F108) 
F 


STEP 2 Laminae Sorting 


The bodies to be used are input to LSORT. This program will 
check that a user specified minimum lamina thickness is observed 
and counts the number of lamina per body. 
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G3DCP continued page 3 


emer. ot) 


OUTPUT (continued) 


si ie a Belly anal ms ca 


STEP 3 
Combination of bodies into one model 
The bodies to be used in the particular model are combined : 
into one file by program G3DCPREP in a format acceptable to 2 


G3DCP. At this point a reference density is specified for eaci 
body that will be subtracted from the density in the input file 


STEP 4 Calculation of anomalies 


The model and field points are input to G3DCP and the anomalies 
are calculated. 


SAMPLE RUN 
STEP 1 Definition of bodies 


The bodies must be in the following format whether they are 
produced by hand or by some modeling program 


Body 1 (file BOD1) 


EE EEE. 


| 





‘ 
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4 








1 e  E ORTENRD 





1 ee 67 
Pet emMIOo>S ‘ 
ef grt a 
me, et TTO i 
SeVFIR Po re NE IGO 
eOIISS CO OMFG a ; 
e Lesa 3**#40I09 i 
Fer I7 Fon 9€0°990 
Be7F ye? #P2rQ #LOT ICO 
eho PVIZ7 9260 19701050 
eHe7IG7  BNQ™eNOAGCO 
#e799S7 Ao eC VDL 
3 197700 3°030000 
16659996 209074004000 
16059996 *2¢0;#009090 
16059956 =200)*902009 
"16659296 200¢*C90U00 
16659996 20059907001 
* 17700 *#+220000 
24039995 290°%*00L000 
242399995 =2000°000000 
$246994995 =2000"90N000 
724039995 ~=2006*99C000 
24039995 2000000001 
s 1*7/60 4610000 
3219994 2000*000009 e 
3219994 ©2909*000000 
*32019994% ©2906 °G05000 
232019998 2907+900000 
32019954 2000*00C001 
° 1°7700 5900000 
39699992 2007+609000 
3399992 *2500°000000 . 
°39+99992 ©296)°000000 ; 
©39099992 2009*000000 
39099992 20909+005001 


10*000C00 
2002*900000 
*2900*C0vC00 
*2702*009C00 
200% #007000 
200¢ #000001 
10709000 
2009+909000 : 
*2¢92°C09000 
*200.°000600 : 
2095 #009000 
2003*c00001 
L1+419900 
2¢02*C0L000 
*25069*009690 
*2062*006C00 
2900 000000 
2n03*co0001 
12+110909 
2709+606000 
*2002+90C000" 





ee ere 


=*SCOO 
39099998 
39+99993 
#39099998 
939699998 
3999998 

2 =*5000 
360c2523 
369c2723 
236092023 
*36002h23 
36e02K23 

3 **5000 
32005649 
3205649 
932005649 
932065609 
320c55a9 

« =+5200 
28608473 
28098473 





ReNOe 
09060 
0c061 
00062 
00063 i) 


DATA 
#23+08473 
=28008473 
28658473 
05000 


"2009 *0900000 

2900+*00%000 

2000*000001 
12+610000 


28 ee 





occss 
00065 
00066 
00067 
00068 
00069 
0co70 
00071 
oco72 
0co73 
OCco7* 
00075 
00076 
00077 
00078 
00079 
oco80 
ocos1 
oco&2 
02083 
Ocudss 
OooRS 
070%6 
ocoR? 
onose 
00089 
07090 
oco™1 
00692 
00093 
Oude 


24011298 
24011298 
24011298 
24011298 
24e31298 

6 *+5000 
20,4124 
2cerei2s 
"20014124 
“2ce14l24 
20014124 

7 *e5€00 
L6epo%es 
1601609483 
"16016968 
*16¢16%%8 
Leepodek 

of #65900 
12049774 
12019776 
717019774 
“12019776 

~ L204 977% 

g 2050990 
Bee25o5 
Reredae 
whep2994 
wee meta 
Reseed 

tu e0n000 
Beeston 


2¢04*C07000 
"20039009009 
*2¢03#000000 
2502*003000 
200)*0N0001 
136520300 
2900*007000 
*2067*C03000 
#2900 *90C000 
2006 #0909090 
200900 001 
14*220909 
2000#003000 
*2009*CQ°0C0 
*200)*005000 
2002 #907000 
200.'#90 7001 
14%*920000 
2002003000 
©2907 °CO°D00 
*2002"C0 C09 
2co>*cccooe 
ZcoOs*CQs0OL 
15+629909 
2003*CO 2600 
#2000*007C00 
°2°0)*507009 
2.079000) 
2eds*Corcol 
166319302 
reer etg nd 


ee ea 


se54ceces30eo3#ee @ 


oro"s 
OnL% 
oe"? 
} O.0%s 
a a 
A ’ 
an ee 
f 


bechbon 
wher een 


e2rd storey 
ereu ety ue) 
Ch de dd ee A de 
Benheeo 270 eo 
Peer wee 7 baal 
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pene 


28°00 
34279 1948 
30 19198 
230 9998 
2390 I9I98 
39099 998 
E5506 
34902223 
34902723 
#3602323 
“34092623 
36°92323 
28:00 
32095549 
32065549 
"32905649 
32005549 
3205549 
2°8.00 

2& 098473 
25068473 
$25°084%73 
=28008473 
25°08473 
2°87500 
2411298 
24011298 
=240114298 
-24011298 
24011293 
2°8000 
20914le4 
20014124 
24014124 
220014124 
29°14124 
2+*8°500 
16°163948 
16916942 
“16016948 
716016948 
16°16948 
2°3000 
12019774 
12019774 
“1? 15774 


, 12919774 


wo 


10 


12019774 
2*acoo0 
&ePPS98 
5022598 
=262259R 
28022598 
822598 
2°6v00 
4025426 
6 625426 
24025426 
wh e2S426 


4625426 


10°00 
2000299009 
#2000 eC009C 
e2buC~900700 
@ncced0r00 
2000 e00v001 
10°70 
200cenocor 
"2060eLOL00 
"200 )909°00 
200¢+e00009 
20C9*000001 
1ie41 
200600900 
"2000000000 
*200C «00000 
200000000 
2000-00co01L 
12¢11 
2000+00000 
=2000°00 700 
"2000 +00C00 
2006 *00)00 
2000000001 
12°81 
2060 e9q9Q9000 
"EC00*#00900 
72000*00v000 
2000*00C00 
2000000001 
12°52 
206000000 
=2060*00000 
=2000+00000 
200000009: 
2000+°00C001 
14°22 
2000 #00000 
"20090*0C000 
-2000+*00000 
200000000 
2000000001 
14°92 
2000e0000ce 
=2000+00000 
=2000+90000 
20600eQ0000 
2000+-00C0C1 
15°62 
200% #00000 
=2000*Q0000 
*2000*00090 
2009*00C00 
2009000001 
16°33 
2000*00C00 
*2090+00000 
*2000*00000 
2000*00C00 


2000-00001 


BODYZ (FILE BOD2) 


*0u 


00 


#00 


°00 


#00 


*00 


#00 


*00 


#00 





en 











STEP 2 Laminae Sorting (see LSORT documentation) 


!ASSIGN F:1,(FILE, BODL), (IN) 
!ASSIGN F:2,(FILE, BOD2), (IN) 
!ASSIGN F:7,(FILE, SORT1), (OUT), (SAVE) 
!ASSIGN F:8,(FILE, SORT2), (OUT), (SAVE) 
!ASSIGN F:13 (FILE, SORTCNT), (OUT), (SAVE) 
!LOAD(BI), (UNSAT, (305), (312), (3)) 
LSORT Binary Deck 
! RUN 
!DATA 
O.2 
02 
!EOD 


STEP 3 Combination of Bodies (see G3DCPREP documentation) 


!ASSIGN F:1,(FILE, SORT1), (IN), (SAVE) 
{ASSIGN F:2,(FILE, SORT2), (IN), (SAVE) 
!ASSIGN F:13, (FILE, SORTCNT), (IN), (SAVE) 
!ASSIGN F:7, (FILE, G3DCIN), (OUT), (SAVE) 
!LOAD (BI), (UNSAT, (3) ) 
G3DCPREP Binary Deck 

!RUN 
!DATA 

02 

1.03 

243 
!EOD 


FILE G3DCIN 


; 





STEP 4 Calculation of Anomalies 


!ASSIGN F:1, (DEVICE, SI) 
!ASSIGN F:3,(FILE, G3DCIN), (IN), (SAVE) 
{LOAD (BI), (UNSAT, (514), (456), (305), (312), (3)) 
!RUN 
IDATA 

Sense switch card 

Coord initialization card 

Reference card 

Field point card (s) 

Last field point card has 1 in col,43 

!EOD 


STORAGE REQUIREMENTS: 30,000 decimal words 

SUBPROGRAMS REQUIRED: COORD, STAT, GINOT, PLANET, FORTRAN IV library 
PROGRAMMER: Bruce Simon 

ORIGINATOR: Carl Bowin 


DATE: 1 October 1975 


REFERENCES: Bowin, Simon and Wollenhaupt, Mascons a Two Body Solution, 
Journal of Geophysical Research, in press 


. 


Talwani, M., and M. Ewing, Rapid Computation of Gravitational 
Attraction of Three-Dimensional Bodies of Arbitrary Size, 
Geophysics, XXV, 263-225, 1960. 





G3 DCPREP 
Main Program 
To prepare input to program G3DCP 
Sigma 7 
SOURCE LANGUAGE: Extended Fortran IV 
PROGRAM CATEGORY: File management 
DESCRIPTION: 
G3DCPREP prepares the input to the modeling program 
G3DC from LSORT output. 
INPUT: 
Cards 
Card 1: Number of bodies to be input (NUMBOD ;I2) 
Cards 2-6: A reference density for each body to be subtracted 
from the density in the LSORT output (REFD;F10.0) 
Files 
Files 1-6: 1 file for each of up to 6 bodies to be input 
to G3DC 
File 13: file with laminae count for each body input 
OUTPUT: 
Files 
File 7: a file compatible with G3DC to be used as input 
to G3DC 


USAGE: See G3DCP documentation 


SUBROUTINES REQUIRED: Fortran IV Library 


PROGRAMMER: Lee Gove 
ORIGINATOR: Lee Gove 


DATE: 1 October 
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19 


11 


28.00 
0999S 
099.998 
2299998 
2099998 
099198 
204.00 
wek9IIE 
48S I9A 
#4089998 
24189998 
4089796 
2°&200 
2079997 
8¢79397 
8079997 
28079997 
8079997 
2+8000 
12069997 
12°69997 
#12069997 
$12069997 
12069997 
2°8000 
16959996 
46°59396 
© 16059996 
#16059 296 
16059996 
22000 
20°49995 
2049995 
=2¢ 049995 
720049995 


20°49995° 


2«3000 
24239995 
24039995 

724239995 
=240392795 
24039995 
2°8000 

2a 029994 
25929594 
"2802999" 
24029794 
28629994 
2°8500 
32¢19994 
32019994 
92019994 
232019994 
32°19994 

208.00 
36009993 
34°09993 

#34°09993 
"36009993 


36%09993 
2°8C00 
32993992 
39+99992 
#3999392 
+39099992 
39+99992 


Bes 
2906*90°00 
"e000 #90200 
2000 e000 
2006 #00900 
20ccenocool 
3024 
2000 ey0co0 
#2000 +90C00 
©2000+00000 
20CC #90900 
200¢¢00000f 
Boku 
200C 00000 
#2000 «00009 
*2000+00000 
2000°00000 
2000°000001 
3°63 
200C+90Cc00 
=200C *00000 
"2000 eC0000 
2000*00000 
2000000001 


2000*00500 
*2000*00000 
=2000*00000 

200000000 

2000+000001 


2000e0000¢ 
*200C ©00000 
=2000*00000 
200C «00009 
20000000! 
4.22 
200000000 
#2900+00900 
*2000*00L00 
2000-0000 
2000» 0000113 
heal 
2000+00C00 
#2000+*00500 
=2000+00000 
2000+000V00 
2000+00C001 


eb) 


200Ce00000 
"2000+00¢ 00 
*2000+C0000 
200000000 
2000+000001 
480 
2000+00C00 
"€0C0*00000 
=200C «00000 
2060-00000 


2000+000CO1 
500 
2000+00900 
"200000900 
*200C*0C900 
2000+«00000 
2000000001 


i oe 


40? 


¢00 


*0u 


#00 


+00 
°00 
*00 


#00 


“00 


°00 


#00 


#00 
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NAME: HIG 
TYPE: Main Program 
PURPOSE: To convert gravity data in the format used 
by the Hawaii Institute of Geophysics (HIG) 
to GSUM format. 
MACHINE: Sigma-7 


SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Pormat conversion 


DESCRIPTION: 
HIG simply reads a record in H.I.G. format and 
converts the record to a GSUM record with format 
forward code of 17 


INPUT: 
Unblocked tape in HIG format on device no. 1 
CARDS: 
1) Sense switch options - all zero (or blank) 
2) Source code (15) 
3) Input tape serial number (4A1) 
4) EITP in columns 1 to 4 
5) Output tape serial number (4A1) 
6) EOTP in columns 1 to 4 
OUTPUT: 
Unblocked tape in GSUM format on device no. 2 
USAGE: 
! JOB 
ILIMIT 


!IMESSAGE (I/O mag tape info) 
!ASSIGN F:1, (DEVICE, 9T), (SN,xxxx), (IN), (TRIES,10) 
!ASSIGN F:2, (DEVICE, 9T), (SN,xxxx), (OUT), (TRIES, 10) 
! OLAY 
!RUN 
!DATA 
Data Cards 
!EOD 
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HIG continued, page 2 


RESTRICTIONS: 
SUBROUTINES REQUIRED: GINOT STAT FORTRAV IV library Ye 


OPERATIONAL CHARACTERISTICS: Simple read-then-write program 





PROGRAMMER: Lee Gove 





ORIGINATOR: Carl Bowin 


DATE: 1 December 1973 
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NAME: LSORT 
TYPE: Main Program 5 
PURPOSE: To edit and sort polygonal laminae of G3Dc format 
MACHINE: Sigma-7 


SOURCE LANGUAGE: extended Fortran IV 


PROGRAM CATEGORY: File Management 





DESCRIPTION: 
LSORT reads, for each of up to 6 bodies, up to twenty 


laminae. It counts them, discards laminae of thickness 
less than ZLIM, and prepares files for input to G3DCPREP 


INPUT: 
cards 
Card 1: Minimum allowable thickness for a single laminae 
(ZLIM;F10.0) 
Card 2: Number of bodies (files) to be input (NUMBOD;I2) 
Files 


Files 1-6: 1 file for each of up to 6'bodies 


File 13: file of counts of laminae for each body 
USAGE: See G3DCP documentation 
SUBROUTINES REQUIRED: FORTRAN IV Library 
PROGRAMMER: Lee Gove 


ORIGINATOR: Lee Gove 





DATE: 1 October 1975 





GSN 





MACHINE: 


76 


MODPLOT 

Main Program 

Plots data for preparation of crustal structure 
models of the earth's crust and plots the 
output tapes from TALPLOT16 


Sigma-7 


SOURCE LANGUAGE: Fortran IV 


PROGRAM CATEGORY: Graphical display 


DESCRIPTION: 


This program performs two basic functions. It will plot 
a profile of data used in the preparation of two- 
dimensional structure models of the earth's crust as 
well as plotting the structural models themselves. 


Input to this program may includ- output from a TALPLOT16 
run and/or combinations of data output from PROJ4 and/or 
SAINT2 runs and model polygons. TALPLOT16 is a program 
that computes the gravitational attraction of two- 
dimensional structure models. The PROJ4 program projects 
data from any given area to a selected straight line 

and outputs a card deck which is then used to plot profiles 
of the data. The SAINT2 program will interpolate the 
data output from PROJ4 at regularly spaced intervals 

(in order to reduce the effects of snall local variations) 
and output data that can also be plotted as profiles. 


At the present time, the types of data that the PROJ4 
program will process are: GSUM format (containing free- 

air and Bouguer gravity data, bathymetry and elevation), 
SPFMT format (containing seismic refraction data), seismicity 
data, and the model polygon portion of Talplotl6 input data. 


Program operation is determined by sense switch options 
selected via the first data card and the order in which 

the various types of data are arranged in the input deck. The 
JFMT number (input card 7) informs the program what kind of 
data follows in the input deck. The data terminator cards 
(input card 9) indicate completion of input of present 

JFMT type data. Another JFMT card is then read in. If it 
equals 9, then the job is terminated. 








MODPLOT, page 2 


INPUT: 





Card 1: values of SSW(I). Format (8011) See SSW options 
under USAGE) 


Card 2: XFACT,YFACT,TOP,BOT,BLEFT,RIGT (6F10.0) 


XFACT - The number of km's/inch in the x-direction 
(long axis of plot). 

YFACT - The number of km's/inch in the y~direction. 

TOP - The upper bound for the model (km). Eleva- 
tion above sea level is negative,depth 
below sea level is positive. To avoid 
boundary effects, the value of TOP should 
be more negative than the y-coordinate of 
the point of highest elevation to be plotted. 

BOT - The lower bound for the model (km). The 
value of BOT should be a greater positive 
number than the base of the model, to avoid 
truncating the bottom of the model. 

BLEFT - The left boundary (km) of the data and model 
to be plotted. 

RIGT - The right boundary (km) of the data and 
model to be plotted. 


Card 3: ELFAC,ELDIS,GFAC,GDIS,WFAC,WDIS, PFAC, PDIS (8F10.0) 


ELFAC - The scale factor for elevation (km/in). 

ELDIS - The distance of the origin of the elevation 
profile above the origin of the model (inches). 

GFAC - The scale factor for gravity; free-air and 
Bouguer (mgal/in). 

GDIS - The distance of the origin of the plot of 
free-air and/or Bouguer gravity data above 
the origin of the structure model (inches). 

WFAC - The scale factor for the model weight profile 
(kg/in). 

WDIS - The distance of the origin of the weight 
profile below the base of the model. 

PFAC - The scale factor for individual polygon 
contributions (mg/in). 

PDIS - Distance of the origin of the curves (con- 
tribution of individual polygons) above the 
origin of the structure model. 


ia eke LORIE RATES! SST LOA LET IL CT EE, DED OTR A OFT» CREO RTA: 





MODPLOT, page 3 


Card 4: HT, DBOT ( 2F10.0) 


HT - Character height multiplication facta in 
multiples of 0.07" (used in the call to 
symbol for the plotting of the anomaly curves). 
If HT = 0 a default value of 3 is assumed. (9.21"). 
DBOT - The distance that the weight curve is supposed 
to be plotted above the bottom of the plot. 


Omit the following cards when plotting only the output from 
TALPLOT16. 


Card 5: A label card containing 80 columns of alphanumeric 
data. This will appear at the beginning of the plot. 
Include this label card only if SSW(1) = 1. If 
SSW(1) = 0 or 2, then the label is obtained from the 
TALPLOT16 output tape. 


Crustal structure section (CSS) identification card 
(same card as used in the PROJ4 run). 

CSS ID, ANG, DMAXM, ILAT, RILTM, ILONG, RILDM, LABEL 
(8A1, 2X, 2F10.0,14,F6.2,14,F6.2,30A1) 


cSs ID Crustal structure section identification number 
(CSS-NNN). 

ANG The angle between the vertical and the 
straight line to which the data has been 
projected in the PROJ4 program. 

The greatest distance (km) from the reference 
point for which data will be accepted. 

The latitude, in degrees, of the reference 
point for the line. 

The latitude, in decimal degrees, of the 
reference point. 

The longitude, in degrees, of the reference 
point. 

The longitude, in decimal degrees, of the 
reference point. 

A label containing up to 30 alpha-numeric 
characters 
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MODPLOT, page 4 


Card 7: JFMT (J-format) (11) 


JFMT For JFMT Data Terminator (11) 
1 (or 2) GSUM 2 - "8" cards (column 1) 
3 SPFMT 2 - "8" cards 
a SEISMICITY 1 - "8" card 
5 MODEL POLYGONS none 
6 TALPLOT16 INPUT none 


Note: 5 and 6 both read TALPLOT16 input. JFMT=6 reads from card 1 
of TALPLOT16. JFMT=5 reads from after card 5 of TALPLOTI6. 
In either case, only the model polygons will be plotted. 


A. If input is on cards: 


sriemneiaiemioeeneadememececieneeecieneeeeee tee ee 


i Card 8: data cards for the JFMT 
Card 9: data terminator cards (see card 7) 


B. If input created by the PROJ4 program is on mag tape, and JFMT = 1 
or 2 for GSUM format: 


Card 8: input tape serial number (14) 
Card 9: EITP in columns 1-4. 


C. If input created by the PROJ4 program is on tape, but is some 
format other than GSUM, there will be no cards 8 or 9. Data 
termination cards are already on the mag tape. 

Repeat cards 7 - 9 for each JFMT data type to be plotted. 
Card 10: JFMT = 9 to terminate the job (I1) 
OUTPUT 
1) on line printer: the input parameters 
2) on Calcomp plotter: profiles of the data and/or two-dimensional 
plot model input to the program. 


USAGE: 


Sense Switch Settings 


SSW(1) = 0 to plot only from TALPLOT16 output tape 
= 1 to plot PROJ4 data, and/or model polygons: reads JFMT. 
= 2 to plot both TALPLOT16 output tape and PROJ4 data 
Ssw(2) = 1 to plot Bouguer anomaly in addition to the free-air 
SSW(3) = 1 to plot height from GSUM data 
ssw(4) = 1 to plot elevation. The input values are on the 


TALPLOT16 output tape (in meters). Use only if 
elevation data was input to previous TALPLOTI16 run. 
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ERRORS AND DIAGNOSTICS: 
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Ssw(5) = 1 to plot observed and calculated gravity. 
SSW (6) 1 to plot weight 
Ssw(7) = 1 to plot contribution of each polygon. 
SSW (8) 1 to plot two-dimensional Bouguer anomaly 
in TALPLOT16 output. 
SSW(13)= 1 to print intermediate values. 
ssw(14)= 1 to plot only a dot for GSUM free-air 
values, rather than a continuous line. 
Be sure that SSwW(14) = 1 if plotting from unsorted 
PROJ4 output. 
Ssw(30)= 1 to read GSUM data on 2 cards 
Ssw(32)= 1 to read SPFMT data on 2 cards 
Ssw(36)= 1 to read Seismicity data from cards 
Ssw(44)= 1 to read Seismicity data in blocked format 
The calculated anomaly plot is marked by asterisks. 
RESTRICTIONS: 


Elevation above sea level is negative, depth below sea 
level is positive. 


STORAGE REQUIREMENTS: Unknown 


SUBPROGRAMS REQUIRED: ANOV3, DISAZ, DMTOR, DNAV, EVIL, EXIT, EXTD, 
GINOT, INCEP, ISW, PINOT, PLOT, PLOTS, SPLOT, SPOT, STAT, 
SYMBOL, WHERE, YINOT, STANDARD FORTRAN IV LIBRARY. 


TIMING: TALPLOT16 output of approximately 200 polygon points 
will take just under two minutes of computer time. 
For other data types, the timing is undetermined. 


Message Error 
"Plot too wide, width = VIT" Distance of model origin above the 


bottom (right) of paper is too great, 
The value of ViT must be less than 
29. (VIT = DBOT + WDIS + YWIDE/ 
YFACT) where (YWIDE = TOP-BOT) 


PROGFAMMER: Carl O. Bowin 





ORIGINATOR: Carl O. Bowin 








DATE: 12 June 1974 
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NOAA 
Main Program 


To convert gravity data in NOAA format to 
WHOI GSUM format 


Sigma-7 
SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Format Conversion 


DESCRIPTION: 


NOAA uses asychronous I/O to speed up the conversion of 
NOAA data to GSUM. The GSUM record has a format forward 
code of 16. The input tape is blocked by 20 and the output 


is blocked by 50. Input gravity data is assumed to be re- 


ferenced to International Gravity Formula 1930.Conversion to 
IGF 1967 is made in another program. 


INPUT 


1) Mag-tape in NOAA format blocked by 20 
2) Cards : 
1) Source Code(I5) 


OUTPUT: 


1) Mag tape in WHOI GSUM format blocked by 50 
USAGE: 


!JOB 

!MESSAGE (Mag tape info) 

!ASSIGN F:1, (DEVICE, 9T), (SN,xxxx), (IN), (TRIES, 10) 
!ASSIGN F:2, (DEVICE, 9T), (SN,xxxx) , (OUT), (TRIES, 10) 
!OLAY 

! RUN 

1 DA'TA 

Data card 
!EOD 


RESTRICTIONS: 


a) NOAA tape must be blocked by 20 
b) GSUM tape blocked by 50 with format forward code = 16 
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NAME: PROFG 
TYPE: Main Program 
PURPOSE: Profiles GSUM data 
MACHINE: XDS Sigma 7 


SOURCE LANGUAGE Fortran IV 
PROGRAM CATEGORY Graphical Display 
DESCRIPTION: 


This program profiles various parameters in GSUM format. 
By using GINOT as the input routine all the options in 
GINOT are available. 


INPUT: 


1: GSUM data (via F:1) 
GSUM data on tape or cards, blocked or unblocked 
2) Cards: 


card l Sense switch card 

ssw (5) no effect 
to select station 
no effect 
process only if data after start date 
no effect 
to call MOUNT 
no effect 
process only specified source codes 
skip specified source codes 
process only specified format-forward codes 
skip specified format-forward codes 
no effect 
input GSUM on cards 


rPORWNFOFOFOFO 


Ssw (14) 


Ssw (25) 
ssw (29) = 


SSW (30) = 


SSW(40)= 0 input unblocked with no DLT 
1 input blocked X50 with no DLT 
2 input blocked X50 with DLT 
| Ssw(41)= 0 output on tape unblocked 
1 
0 
1 


output on tape blocked x 50 

no effect 

process only within specified geographic 
bounds 
SSW(47)= 0 no effect 
= 1 process only within specified time interval 
2 skip data within specified time interval 


Ssw (46) 





PROFG continued 
INPUT continued 


Card 2 GINOT initialization card 
Card 3 Number of nautical miles, kilometers, or hours per inch 
on plot (DIFAC;F10.0) 

Engineering units per inch in Y direction (YFAC;F10.0) 
Number of points between time annotation (LCNT;T5) 
O For na utical miles, 1 for kilometers (MIKM;15) 
Number of plots (NPLOT;F5) 
Number of files (NFILE;I5) 


Upper limit for plotting data value in eng units (ULIM;!"10..) 

Lower limit for plotting data value in eng units(BLIM;T' J. 

Distance limit in inches for plotting data (DLIM;F10.0) 

1 for distance along track 0 for time along track 
(IXDIR; I5) 

Allowable distance for length of plot before reinitialization 
(XALOW; F10.0) 

Inches to move before reinitialization (DMOVE;F10.0) 

Starting day for processing (LIMDA; I5) 

Starting month for processing (LIMMO; I5) 

Starting year for processing (LIMYR; I5) 

Starting hour and minute for processing (LIMHM; I5) 

Card 7 Station number to be selected (MSTA; I5) 


OUTPUT: 


1) Printer (via F:108) 
All input parameters are output to the line printer along 
with error messages 

2) Plot tape (via F:PLOT) 
A plot tape for plotting by the 30" Calcomp plotter 


USAGE: 


! JOB 

!LIMIT (9T,1), (7T,1), (CORE, 20), (TIME, X) 

!MESSAGE GSUM data tape info 

!MESSAGE plot tape info 

!ASSIGN F:1 to GSUM file 

!ASSIGN F:PLOT, (DEVICE, 7T), (SN, PLT1), (BIN), (UNPACK), (TRIES, 10) 
!LOAD (EF, (PROFG, 456), (STAT,3)),(UNSAT, (305), (312), (3)) 
!RUN 

!DATA 

! EOD 
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RESTRICTIONS: None 
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PROFG continued 


STORAGE REQUIREMENTS: 15K 


SUBPROGRAMS REQUIRED: GINOT, FIND, ISW, CDATE,MCVOL, SPOT 
TIMING: Undetermined 
ERRORS AND DIAGNOSTICS 
DLIM (date) distance limit exceeded 
ULIM (date) upper limit exceeded 
BLIM (date) bottom limit exceeded 
END DATE PASSED end of processing 
PROGRAMMER: Carl Bowin and Lee Gove 


ORIGINATOR: Carl Bowin 


DATE: 2 October 1975 
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NAME: PROJ4 
TYPE: Main Program 
PURPOSE: To project data onto a given line providing 





the data is within a given area and within a 
given distance from the line. 


MACHINE: Sigma-7 
SOURCE LANGUAGE: FORTRAN IV 
PROGRAM CATEGORY: Data analysis 


DESCRIPTION: This program projects several data formats to 
a straight line defined by input latitude and 
longitude of a point, and bearing from the north 
(0 to 360 degrees). The program can process 
several different formats in the same run, the 
order for processing being determined by a 
format choice input card (card 6). 


The data can be output to a tape to be used 
in MODPLOT, TALPLOT16 and/or SAINT 2 runs when 
JFMT = 1 or 2 (GSUM format). 


The different data formats that the program 
will process are: 


GSUM - Gravity summary format, containing 
free-air and Bouguer gravity values, 
elevation and bathymetry. 

SEAG1 or 2 - Sea gravity data format, containing 
corrected gravity values plus magnetics. 
SEAG data may be input in 1939 IGF and 
referenced to Potsdam (SEAG1), or in 1967 IGF 
and referenced to the IGSN71 (SEAG2). GSUM 
data may be input in 1939 IGF and referenced 
to Potsdam (IREC=1), or in 1967 IGF and 
referenced to the IGSN71 (IREC=2). For either 
SEAG or GSUM input, output is GSUM with IREC=2. 

SPFMT - Seismic refraction data format. 

SEISMICITY - U.S. Coast and Geodetic Survey data format. 

ACTIVE VOLCANOES - File on active volcanoes key-punched 
from "Catalogue of the Active Volcanoes of the 
World" and supplementary references. 








Card 1: Crustal structure section (CSS) identification 
card containing projection parameters. 
CSS ID, ANG, DMAXM, ILAT, RILTM, ILONG, RILDM, LABEL 
(10A1, 2F10.0,14,F6.2,14,F6.2,30A1) 


CSS ID - Crustal structure section identifica- 
tion number (CSS-NNN). 

ANG The angle between the vertical and the 
straight line to which the data will 
be projected in the PROJ4 program 
(0 to 360 degrees). 

The greatest distance in nautical 

miles from the reference point for 
which data will be accepted. 

The latitude, in degrees, of the reference 
point for the line. South is negative. 
The latitude, in decimal minutes, of 
the reference point. Note: if degrees 
are negative minutes must be negative 
also. 

The longitude, in degrees, of the 
reference point. West is negative. 

The longitude, in decimal minutes, of 
the reference point. Note: if degrees 
are negative minutes must be negative 
also. 

LABEL A label containing up to 30 alpha-numeric 
characters. 
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Cards 2-5: Four boundary cards (I14,F6.2) 
2) Degrees Minutes (top latitude) 
3) " (bottom latitude) 
4) " (ieft longitude) 
5) 7 (right longitude) 


Selection of order that data formats are processed: 
(915) lst JFMT, 2nd JFMT, 3rd JFMT, ..., 9th JFMT. 
JFMT 1 for GSUM format. 
JFMT 2 for SEAG1 or 2 input,output is GSUM format with 
JFMT = 3 for SPFMT format. TREC= 

JFMT 4 for SEISMICITY data format. 

JFMT = 7 for Active Volcanoes. 
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Card 7 and following vary depending on the JFMT. Repeat 
ecards 7 and greater for each selected format in the order 
given on card 6. The program terminates when JFMT = O or 
blank, or when start date = 99. 


A. for JPMT = i GSUM format (uses subroutine GINOT) 


Card 7: Sense switch options. Put sense switch (0) 
option in column 80, all others in column 
corresponding to switch number. 

Isw (3) = 1 to output GSUM data onto a disk file 
(unit 20). 
Isw (4) = 1 to output intermediate values for 
checking (subroutine PROJ). 
Isw (12)= 1 to list date identification. 
ISw (26)= 1 to output on high speed printer only. 
ISswWw (27)= 1 to suppress rewind of ITAPE at 
start of job. 
ISW (27)=2 to suppress rewind of JTAPE at start 
of job. 
=9 to suppress rewind of both ITAPE and 
JTAPE. 
(29)= 1 to read and test for selected source 
code numbers to be processed. 
2 to read and test for selected source 
code numbers to be skipped. 
(30)= 1 for input data on cards. 
(31)= 1 to output data on cards. 
(40)= 0 to process without the DLT. 
= 1 to process with bounds using the 
data location table (DLT). ; 
(60)= 1 to process only data with IFFC =4, 
ABSTRACTOR output. 
(61)= 1 to replace free~air, Bouguer, elevation, 
latitude and longitude with averaged 
values. 


(optional) If ISW (29) = 1 or 2, enter ISRC 
numbers to be processed or skipped 
(1615). 


(optional) If data is input on tape, serial 
number of input tapes - one per card 
(A4). If data is not input on tape, 
ISw (30) must equal l. 





B. 


Cc. 


Card 10: 


Card ll: 


Card 12: 


Card 13: 


for JFMT = 


Card 7: 


for JFMT = 3 


Card 7: 


Rie 


(optional) If there are card(s) 9, EITP in 
columns 1-4. 


(optional) If data is to be output to mag tapes, 
serial number of output magnetic 
tapes, one per card (A4). If no 
output tapes, then no serial number 
cards and either ISW (31) or ISW (3) 
must equal 1. 


(optional) If there are card(s) 11, EOTP in 
columns 1-4. If no output tapes, then 
no Card 12. 


Start and end dates, ISKP card 
ISTDA, ISTMO, ISTYR, ISTHM, IENDA, IENMO, IENYR, IENHM, 
ISKP (312,14,5X,312,14,5X,315) 
Start date for processing 
ISTDA (day) 

ISTMO (month) 

ISTYR (year) 

ISTHM (time of day) 

End date for processing 

IENDA (day) 

IENMO (month) 

IENYR (year) 

IENHM (time of day) 


ISKP Number of records to be skipped at the 
start of the job, is much faster than 
using start date only. 


Use a blank card if start and end dates not used. 
If this card is blank, plotting begins with the 
first record. 


SEAG1 or 2,format input,GSUM output with ii5C=2 (uses 
SINOT and GINOT) subroutines) 


Sense switch options. Same as for JFMT = l. 
SPFMT format (uses subroutine PINOT) 


Sense switch options. 

ISw (4) = 1 to output intermediate values for 
checking (subroutine PROJ). 

ISwW (26) 1 to output to line printer. 


ISW (32) 1 to read SPFMT data on two cards. 
ISw (33) l to write SPFMT data on two cards. 





Card 8: Start and end dates and ISKP. (Same as Card 13 
on JFMT = 1 above). 


D. for JFMT = 4 SEISMICITY format (uses subroutine YINOT) 


Card 7: Sense switch options. 
Isw (4) = 1 to output intermediate values for 
checking (subroutine pros). 
ISW (26) = 1 to output to line printer. 
ISW (44) 1 to read blocked input. 
Isw (45) = 1 to write blocked output 


Card 8: Start and end dates and ISKP (Same as card 13 
on JFMT = 1 above). 


E. for JFMT = 
at present there is no volcano routine. 


OUTPUT: 


On unit 2: 
1) JFMT number record (Il, 20X). 
2) projected data at appropriate format. 
3) two records with a numeral '8' in column 
1 (Il, 20x). Only one '8' record for seismicity 
and volcano data. : 
This sequence is repeated for each selected JFMT. 


On uhit 20 (disk): GSUM data for subsequent 
processing by SAINT 2 if SSW(3) = 1 (Only applies when 
vera = L Or Z)4 
unit 108 (line printer): initialization parameters. 


Assign cards vary depending on format. There should be 
separate assign card for each JFMT input. 

Unit 2 is for output of projected data 

Unit. 3 is for GSUM format input 

Unit! 4 is for SEAG1 format input; output is GSUM with 
Unit! 5 is for SPFMT format input 

Unit 6 is for SEISMICITY format input 

Uni: 9 is for Active Volcano data input 

Uni: 20 is for disk storage of GSUM data if 1£SW(3) = 1. 


To stop processing make start day = 99. If start day = 99, 
the program goes to 1000 and checks input format choices for 
format code number of zero. 
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= 


RESTRICTIONS: South and west are negative. 


Degrees and minutes must have the same sign 
(e.g. 47°45.0' or-32° = 30.0'). 





Ss GE REQUIREMENTS: Unknown. 


SUBPROGRAMS REQUIRED: AREAK, DNAV, ENDIO, ENDLT, EVIL, EXIT, FIND,GINOT, 
ISW,MCVOL, MOUNT, NAVIN, NAVOT, OBG, PINOT, PKBY, 
PROJ, SETSKP, SINOT, SKPREC, STAT, TODAY, UNPKBY, 


YBLKI,YBLKO, YINOT. 
TIMING: Undetermined. 
ERRORS AND DIAGNOSTICS: 
MESSAGE ERROR 
Error in SKPREC, IND = 'IND' number of records to be 


skipped = 0. 
PROGRAMMER: Carl Bowin 


ORIGINATOR: Carl Bowin 


DATE: 24 February 1975 
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There is a tape containing information on world 
seismicity (hypocenter data) from 1900 through October 1974, 
which is available for general use. The tape will be updated 
periodically, and will always be assigned the same number. 

. | The serial number if #L20. 


S| 
4 NAME: RETRIEVE 
: PE: XDS Manage Processor Program 
‘ PURPOSE: To extract data from a data base file according to 
user specified search criteria. 
q ‘ DESCRIPTION: 
Retrieves data from the data files using a selective 
criterion applied to any part of the data record as 
described in the dictionary. This selection may 
involve a secondary file called "matchine file" to 
which the main data file is compared. The Manage 
' Reference Manual gives detailed information on the 
fi use of the program. 
' USE: 
t 
f 
: 


euro 


Because of the amount of data on this tape (about 
90,000 earthquakes), we recommend you retrieve the data in 
the area you wish to plot, using the RETRIEVE processor, 
before charting. A sample RETRIEVE run is included here. 
Input bounds are in order TOP, BOTTOM, LEFT, RIGHT. South 
and west are negative. For more details see the 
XEROX MANAGE processor manual. If a listing of the data 
retrieved is desired, it can be dumped using FTDUMP. 

For details see the Handbook for Computer Users. 


—— 
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The program CHART can give you plots annotated with 
date, depth in km, or magnitude; or as in the sample run, 
it can plot symbols whose type and size varies with depth 
and magnitude. For additional details, see the DDL 
Documentation for CHART. 
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Office Memorandum e WOODS HOLE OCEANOGRAPHIC INSTITUTION 


TO : Distribution DATE: 5 September 1973 


FROM ‘ Carolyn Dean 


sUBjECcT: Program RETRIEVE 


Because of the way this program 'finds' data; what you see 
is not what you get. 


For example, suppose you are trying to retrieve all data 
within the bounds 47, 45, -118, -116: that is, all data in 


squares marked X. 





-119 -118 -117 -116 -115 -114 

The retrieve program, however, uses your input bounds to 
calculate keys to match against a key in the data on the input 
tape. The sort keys are created by adding 90 to the latitude 
and 180 to the longitude, in order to insure positive numbers 
for the codes for all points of the earth. The sort key for 
latitude 47 would be 137, but this code refers to data in the 
degree square to thé north of the given latitude line. Similarly, 
the sort key for longitude -118 would be 62, but this number 
refers to the area of the degree square to the east of the given 
longitude line. Thus, in the example given, the code 137062 
refers to the square marked Yj. 


i 


If your input bounds are 47, 45, -118, -116, the data that 
will find its way to your output is all data in squares marked X 
and ali data in squares marked Y. 


Therefore, you must be aware of this quirk and learn to live 
with it, or you must hedge on your input bounds. To get only 
that data in squares marked X, your input bounds would be 46, 45, 
-118, -117. 
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95 November 21, 1975 
NAME: SAINT2 
TYPE: Main Program 
PURPOSE: To interpolate data at even intervals 
MACHINE: Sigma-7 


SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Data Analysis 
DESCRI >TION: 


This program operates on GSUM format output of PROJ4, 

a projection program. SAINT2 will sort the data by 
distance along the projected line, if necessary, and then 
interpolate the values at even intervals of distance, 

if desired. Interpolation is accomplished by filtering 
with a polynomial function, certain parameters of which 
are entered at run time. 


The phrase "interpolated GSUM from SAINT2" is entered 
in the free-field portion of the GSUM output record. 


INPUT: 


Card 1: Sense switch values (put a "1" in column corresponding 
to switch number of desired option) 


Isw(1l) = 1 to sort data 
ISsw(2) = 1 to punch sorted data 
Isw(3) = 1 to print sorted data 
Isw({4) = 1 to interpolate data 
Isw(5) = 1 to output interpolated data in GSUM format 
(see ISW(11) ) 
ISw(6) = 1 to punch interpolated free-air anomaly in format 


for TALPLOT 
Isw(7) = 1 to print interpolated data and summary of job. 
TSW (8) to print input data 


ul 
e 


Isw(9) = 1 to punch interpolated elevation data in format 

for TALPLOT 

to read GSUM data from magnetic tape 

to punch interpolated GSUM on cards (two cards 
per record) 

= 1 to write interpolated GSUM on magnetic tape 


ISsw(10)= 
Isw(1l1)= 


or 


ieee. a 
— 9 





SAINT2 (continued) November 21, 1975 


Card 2: XKM,XSCAL,NPTS (F5.1, F5.1, I5) 


XKM = distance between interpolated points in kilo. 
= maximum distance in kilometers for which points 
are given unit weight in interpolation algorithm. 
Beyond this weight drops as X/XSCAL. Good first 
approximation: XSCAL = 3*XKM, 
number of points on either side of output point 
to be used in interpolation filtering function. 
Default value is 4. 


Card 3: Crustal structure section (CSS) identifieation card 
(same card as used in PROJ4 run). 


CSS ID,ANG, DMAXM, ILAT, RILTM, ILCNG, RILDM, LABEL 
(10A1, 2F10.0, 14, F6.2, I4, F6.2, 30Al1) 


CSS ID = crustal structure section identification number 
ANG = the angle between the vertical and the straight 
line to which the data has been projected. 
DMAXM the greatest distance from the reference point 
for which data will be accepted, in nautical miles. 
ILAT the latitude, in degrees, of the reference point 
for the line. North is positive. 
the latitude, in decimal minutes, of the reference 
point (note: if degrees are negative, minutes 
must be negative, too). 
ILONG the longitude, in degrees, of the reference point. 
West is negative. 
RILDM the longitude, in decimal minutes, of the reference 
point (see note Re: RILT) 
LABEL a label containing up to 30 alpha-numeric characters. 


Card(s) 4: If ISW(10) is not set, GSUM format input data 
cards (output of PROJ4). 


Card 5: If data is on cards, a terminator is needed. Either 
a !EOD card or two cards with a '9' in column l. 





* 
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SAINT2 (continued) -3- November 21, 1975 


OUTPUT : 


On line printer: input parameters and listings controlled 
by sense switches. 


a On card punch: sorted data, GSUM format, TALPLOT elevation 
input, and/or TALPLOT free-air anomaly input, as requested. 


On magnetic tape: Interpolated GSUM format, if desired. 


USAGE: 


Assign F:l1 to input device (either magnetic tape or card reader) 

Assign F:2 to final output tape. 

Assign F:3 to RAD output file for sort 

Assign F:4 to RAD input file for sort 
(These must have the same file name. SAINT2 writes the 
file and then sorts it,) 

Assign F:5 to RAD output file for output of sort. (OUT) should 
be on the assign card. It will be changed to (IN) by 
the sorter, so that SAINT2 can read it in. 

Here are sample assign cards: 


ASSIGN F$4,(DEVICE,SI) 
ASSIGN F82s (DEVICEs9T)s (QUT) 2 (SNsGN30) 4 (TRIESs 10) 


ASSIGN Fe3,(FILEsFILEL)» (QUT) «s (SAVE) 
ASSIGN F84,(FILEsFILEL) 2 (IN) s (SAVE) 
ASSIGN FiSs (FILEsFILES) » (QUT) 4 (SAVE) 


RESTRICTIONS: Maximum number of input records read is 999. The 
number of interpolated records will be ¢1000. 


STORAGE REQUIREMENTS: 1575 decimal words. Requires (CORE,16) 
on limit card. 


SUBPROGRAMS REQUIRED: AMAW, AMIW, ATSM, CLOFIL, DISAZ, DMTOR, EQN, 
OPIN, PICK, SETAL, THORT, WT, WTSET 


TIMING: less than 3 minutes for under 150 records input, 200 records 
output, with two listing options selected. 


ERRORS AND DIAGNOSTICS: NONE 


PROGRAMMERS: Jack Wolfe, Carl Bowin, Allin Folinsbee 


ORIGINATOR: Carl Bowin 


DATE: 2 October 1974 
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| i 
: 
NAME SELSP i 
TYPE: Main Program ; 
3 3 
: PURPOSE: Outputs data selected according to any of 

several criteria 
MACHIN?: 3. XDS Sigma-7 


SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Data selection 


DESCRIPTION: Program CRWT3 (which see) outputs University 
of Toronto World Seismic Refraction Compilation in 
W.H.O.I. SPFMT format. SELSP will select from among 
this output those records satisfying the required 
criteria, such as quality, geographic area, geologic 
province, depth to mantle, or water depth. Records 
which satisfy the criteria specified on the input cards 
are output in SPFMT format. A record key of 9 causes 
that record to be skipped. 


INPUT: 


Card 1: Sense switch options (80 Il) Put sense switch 0 
option in column 80, others in column corresponding 
to switch number. 


Isw(26) = 1, to output on line printer only (sub. PINOT) 

ISsw(32) =1, to read data from two cards per record 
(sub. PINOT) : 

Isw(33) =1, to write data onto two cards per record 


(sub. PINOT) 
Card 2: (615, 2F 10.0) 


JMET = 1 to sort on the basis of quality 

IMET degree of quality required 

for reliable interpretation q 

for less-reliable interpretation 

for unreliable interpretation 

JPROV to sort on the basis of province 

IPROV is the province number to be selected 
(see references) 

to sort on the basis of area bounds 

to sort on the basis of mantle depth 


il 
FPWNFH 


IAR = 
IDMP 


me 


SMIND Minimum depth to mantle in kilometers 
SMAXD Maximum depth to mantle in kilometers 





SELSP (continued) November 21, 1975 


INPUT ‘continued) 
Card 3; (15, 2F10.0) 


IDP = 1 to sort on the basis of water depth 
=-l1 to sort on basis of elevation above sea level 
(land data) 
DMIN minimum water depth or elevation in kilometers 
DMAX maximum water depth or elevation in kilometers 
(All positive values) 


Cards 4-7 (optional) 
Area bounds (15, F10.0) 
If IAR=1, enter top bound, bottom, left 
and right, in integer degrees, and minutes 
with decimal point, one bound per card. 
Data cards (optional): 


If sense switch 32 is set to one, SPFMT cards should 
follow, two cards per record. 


OUTPUT: 
To line printer: input parameters and counters of 
records read and written 
If ISw(26)= 1, selected output records 


On output device: records which satisfy selection criteria, 
which may be output on cards or magnetic tape. 


USAGE: 


Assign F:1 to input device. Unless ISW(26) or ISW(33) = 1, 
assign F:2 to an output tape. 


RESTRI‘'TIONS : 


STORAGI: REQUIREMENTS: 468 decimal words; (CORE,9) is required on 
LIMIT card, 


SUBPRO RAMS REQUIRED: ARCK, ARLIM, EXIT, PINOT 


TIMING: 5 charge units to select 100 records from 2300 (output to 
lister). 


ERRORS AND DIAGNOSTICS: None 
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SELSP (continued) -3- November 21, 1975 





REFERENCES: 
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; McConnell, R.K., and G.H. McTaggart - Cowan, Crustal 

! Seismic Refraction Profiles, A Compilation, 1963. i 
H Univ. of Toronto, Sci. Rept. No. 8, 54 pp. : 
; PROGR? MMER: CARL BOWIN 

; ORIGINATOR: CARL BOWIN 

! 

H DATE: 6 August 1975 

i 

H 

i 
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101 . 
NAME: \ SPFMT 
TYPE: Main Program 
PURPOSE: Converts seismic refraction data in University 


of Toronto World Seismic Refraction Compilation 
format to W.H.O.I. SPFMT format 


MACHINE: Sigma-7 

SOURCE LANGUAGE: Fortran IV 

PROGRAM CATEGORY: Format conversion 

DESCRIPTION: 
SPFMT converts seismic refraction column data in 
University of Toronto World Seismic Refraction Compilation 
format (one or two cards per profile) to W.H.O.I. SPFMT 
format (each 120 character output record is one profile). 


Input data is assumed to be on cards. 


INPUT: 
card 1: Sense switches (blank card) 


No sense switches ha’ > been implemented for this 
program, available for possible future use. 


card 2: data cards 


card 3 blank card to signal end of input data. 
without this card, the last input card may not 
be output. 
OUTPUT: On device no. 2 - seismic refraction column data in SPFMT 
format. 
USAGE: Assign F:1 to input device; F:2 to output device 


RESTRICTIONS: NONE 


STORAGE REQUIREMENTS: Unknown 
SUBPROGRAMS REQUIRED: EVIL, ISW, STAT 


TIMING: Not determined 
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SPFMT 
ERRORS AND DIAGNOSTICS: ‘EDF FOUND, NREC = : 


NREC is the number of records output 


PROGRAMMER: John Woodside, Carl Bowin 


= te 


ORIGINATOR: , Carl Bowin 


3 
i 


DATE: _ 6 August 1975 
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j NAME: TALPLOT 16 ; 
TYPE: Main program 
So PURPOSE: To compute gravity anomalies for a set of two- 


dimensional polygons 
MACHINE: Sigma-7 
SOURCE LANGUAGE: Fortran IV 
PROGRAM CATEGORY: Data analysis 


DESCRIPTION: 


This program uses Talwani's method for calculating the gravity 
F anomaly for two-dimensional polygons. It sums the contribu- 
tions from the set of polygons and compares the calculated 
result to the observed gravity which is read in at the start 
of the program. The calculated gravity is referenced to the 
observed gravity at a specified point by subtracting the 
value of (Jcalculated ~Jobserved) at specified point from the 
calculated values at each point. 


SERRE 


The program calculates the RMS difference between the calculated 
and observed gravitv anomaly. If desired the proaram will 
modify specifiea points of the last polygon that ‘: read in so 
as to reduce the RMS difference. This is done 11 the following 
way. For each point in the polygon that is to be modified, the 
effect of a change of z for this point on the gravity observed 
at each field point is calculated. This is done by computing 
the effect of thin triangles on the gravity at the field points. 









Gravitionar 
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The if we have NFIELD field points and NVAR variable polypoints 
(note that NVAR .LE. NFIELD) we end up with a set of over-deter- 
mined equations for the change in depth of each of the variable 
polypoints. These NFIELD equations are reduced to NVAR equations 


i 
f 
; by the standard summation method. 
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TALPLOT 16 continued, page 2 


DESCRIPTION (continued) 


ai 


NPUT: 





The equations are solved, and the appropriate moditicat.on.s 
are made to each of the polypoints. The new gravity 
contribution of the polygon is calculated, along with 

the RMS error. We then go back and calculate a new set of 
variational parameters, and then another polygon model, and 
so on. This loop continues until one or the other of 

the following two things happens: 1. the number of new 
polygons calculated exceeds IMAX or, 2. the RMS error 
decreases by less than 0.5 mgals. When this happens 

the program prints out the new final polygon, prints 

out some graphs of the observed and calculated gravity, 

and then stops. It also calculates the crustal weight 

for a 1 cm“ column down to the base of the model. If the 
new polygon displaces more than one polygon, above or 
below, the gravity and mass calculation will be incorrect. 


First Card: 


A card containing 80 columns of alphanumeric data. This 
will appear at the start of the job and at start of plot. 
Format (20A4) 


Second Card: Sense Switches (8011) 


Put ISW(0) option in column 80 and the other options in 
columns corresponding to the switch number. 


Sense Switch Settings 


ISW(1l) = 0 to write onto unit 2 
= 1 not to write onto unit 2 
ISw(2) = 0 sets elevation for all field points = 0 
and does not read in elevation cards 
= 1 reads in elevation cards (kilometers) 
= 2 reads in elevation cards (meters) 
ISw(3) = 0 to print intermediate data for each polygon 
1 does not print 
Isw(4) = 0 to plot intermediate data for each polygon 
= 1 does not plot 
Isw(5) = 0 not to plot of elevation on final plot 
= 1 to plot elevation on final plot 
ISw(6) = 1 to adjust last polygon to fit gravity data 
ISWw(7) = 1 to print intermediate data for the fitting 


part of the program (debugging only) 
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TALPLOT 16 continued, page 3 


INPUT (cantinued) 


Isw(8) = 1 to disable the punching of new polygon points 
Isw(9) = 1 NOT to write intermediate data for each polygon 


onto unit 2 (JTAPE) 

ISsw(12)= 1 to correct calculated weights with an elevation 
factor of (elev(km)*2.67*100. Use when model does 
not contain that part of topography above sea level. 

ISw(13)=l1 to print out results of input polygon before 
varying the boundary 


, Third Card: RDENS, RWGT, RHOD, REFX, FXI, DELFX, M, NFER, IMAX 
| (6F10.2, 110,215) 


4 RDENS - The reference density that is subtracted from the 
S| density of the polygons, (usually 0.0). 

RWGT - ‘The weight that is to be subtracted from the 
crustal weight calculated by the program. The 
value should be the normal weight of a normal 
column of material 1 cm? down to the bottom of the 

/ model in kg. 
RHOD - The difference in density that is used by the 

model adjusting program. It is equal to the 

| density of the layer below the adjustable boundary 
minus the density of the layer above the adjustable 

boundary. 
4 REFX - The value of the X coordinate at which the calculated 
P| gravity is set equal to the observed gravity. 


NFER - half length of the filter used to smooth the 
residuals before modifying the lower polygon boundary. 
If = 0 no smoothing is done. 
: FXI - The X coordinate for the first field point. 
e | DELFX - Distance in Km between field points 
M - The number of field points (must be .LE. to 200) 
IMAX - The maximum number of times the boundaries of the last 


polygon will be adjusted (5 is a good number). 


FOURTH Card: Observed gravity 
‘he observed gravity values, five pe card (5F10.1) (a total 
of M values). If the observed gravity is not known the value 
of the observed gravity should set to 990. 


Fifth Card: (Optional: if ISW(2)=1) elevations 
Elevation of the field points in km, five per card(5F10.1) 
(a total of M values) 





TALPLOT 16 continued, page 4 


athe ee RAS ee 


Then comes a group of cards that is repeated for each 
polygon 


repeated for each polygon 
LNO, RHORK (15,F10.3) 
XX, ZZ, ICODE, IAL (2F10.2, 211) a card like 
this for each polypoint. 


LNO - The number of the polygon 
= 1 this is a water layer, and the program will 
calculate the 2-D Bouguer anomaly 
= 99 this is the last polygon in the model 
= any other number for ordinary polygon 
RHORK - The density of the polygon (in gm/cc) 
XX,ZZ - The X and Z coordinates of the polygon points. 
Note that Z is positive down and X is positive 
to the right (the coordinates are in km) 
ICODE = 9 to indicate that this is the last point in 
the polygon. 
= blank if not the last point. 
Note that the last polygon point must have the 
same coordinates as the first polygon point, and 
that the polygon should be given in a clockwise 
order, 
IAL - Used only by the boundary altering part of the program. 
= 1 to indicate that this polygon point is to be 
varied. For stability the number of points to be 
varied should be less than 1/4 the number of observed 
gravity values, although the number of points can be 
equal to the number of observed gravity values if a 
perfect fit is desired. Also, all the points ina 
boundary should not be varies as this will lead to 
instability in the model. The final restriction is 
that the first or last point in a polygon must not be 
varied. If you wish to vary these points the polygon 
points should be reordered. 
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TALPLOT 16 continued Page 5 


OUTPUT: 


Onto URN 2 if ISW(1) .EQ.0 
a complete duplication of the input, along with the 
results. This tape is used as input for the program 
MODPLOT, 
On line printer (108) 

the input parameters, and numerical tabulations and 

plots of the results. After each polygon the contri- 
bution of that polygon is printed and plotted, if desired. 


The values tabulated are: 
K - the field point number 
FX(K),FZ(K) - the coordinates of the field point 
ANOMALY - the anomaly contribution in mgals., and a blank 
column containing the weight contribution in kg. 


After all polygons have been computed we get the RMS 
difference between the observed and calculated gravity, ignoring 
those points for which observed gravity is not known, 


Then comes the number of points which are used in the 
computation of the RMS value. 
If the boundary is to be varied these values appear 
for each iteration. 


After the final new polygon has been determined the program 
prints oit the new polygon points. 


Then comes the tabulation of the final results 
K,FX(K), FZ(K), as above 


ANOMALY - unreferenced gravity anomaly 
CALC REF- the calculated value referenced to the 
appropriate field point 
RESIDUAL- the difference between the calculated reference 
value and the observed value 
OBS ANOMALY - observed gravity 
WEIGHT - the weight of a cm? column down to the bottom of 


the model 
WGT DIFF - the weight -RWGT 
WEIGHTEST - this column will be a constant number provided 


the bottom of the model is flat and there are no 
holes or overlaps of the polygon. If this column 
is not constant then one of the above conditions 
has occurred, and there is probably an error in one 
or more of the polygons. 
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TALPLOT 16 continued, page 6 


OUTPUT (continued) 


Then follows a line printer plot of the crustal weight, 
and a line printer plot of the observed, and theo. etical 
gravity. 


Onto punch (106) - new polygons points if these are calculated. 


USAGE: 


Input is assumed to be on cards - assign F:l to card 
reader; F:2 to output device. 


A crustal model is prepared which is composed of various 
polygons of various densities. The polygons are numbered 
arbitrarily, with the exception of polygon number 1, which 

is a water layer, and the final polygon; which must be 

number 99. One point of each polygon is designated the 
“starting point". Points define the polygons by proceeding 
clockwise from the starting point and ending exactly at 

the same point. Polygon points must be arranged in this order 
for input to the TALPLOT program. 


RESTRICTIONS : 


1. Input is assumed to be on cards 
2. There can be no more than 
200 field points per model 
150 polygon points per polygon 
20 variable polygon points 
3. Polygon points must be arranged in order clockwise from 
starting point, and the final point of each polygon 
must be exact by the same as the starting point. 
Holes or overlaps between polygons will cause strange and 
exciting gravity variations. To check for these, see 
column marked WEIGHTEST in the line printer output. 


STORAGE REQUIREMENTS: Unknown 


SUBPROGRAMS REQUIRED: PLOTA, PLOTER, ISW, SIMUL, WEIG2 
TIMING: Unknown 


ERROR _ AND DIAGNOSTICS: None 


PROGRAMMER: Allin Folinsbee 


DATE : 


ORIGINATOR: Allin Folinsbee 


20 July 1975 
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4° ex PRAGRAM ARSTGC 
Ee Cc FRAGRAM T@ ABSTRACT GCBN CATA BY 10 MIN AVEREAGES 
3e C VERSION BF 5 NOvy 75 TA CBRECT CENTER LAT AND LONG 
4e, C BRIGINAL VERSI6N 20 AUG 75 
Se CIMENSY8N IEUFIN(66CO) 
6° CIMENSIAN IBUFOT (1184) 
7° CIMENSIBN KODE (300) sKDLAT(300)sKLATMIN(3CC) 
i Re ‘ CIMENSTON KLATDEC(3¢C9) sKLONGCEC( 300) 
Ge CIMENSTON KDOLONG(3C0) pKLQNGMyN (300), KFa(3CC),KELDEP (300) 
iCe CIMENSIEN KAVFA(6,6),NPTS(6,6) »KAVEL (6,6) 
iis CIMENSTION F6yFAR (626) eKCENLAT (606) #KCENLONG (606) 
12° CIMENSION KCENEL (606) sKCENFA (626) 
13° c INITIALIZATION 
14e 10c C8NTINLE 
15° ' BLTPLY 'taABSTGC VERSION OF § NOV 75! 
l6-< INT TSWelSwlec) 
17° ITAPE®1 
18° wTAPEse 
196 NCLT#icCo 
ece NCARCs1ic5 
Ele NBRFC 
cee NPRINT#1C8& 
ese KURLATs999 
e4e kKLRLONGsS99 
2Se C8 1c8& w®196 
26e C8 107 [816 
e7e KAVFA(IeU) 30 
cRe KAVEL (I,J) 8C 
e9e NFTS( Toy) 8C 
30° KCENEL (Tad) 80 
gle KCENFA( Ta J) 80 
3e°¢ KAWFAR( I, ¥) 2999 
33° KCENLAT(Ia¥) 80 
346 KCENLA@NG( Tau) 80 
35° 107 CONTINUE 
266 108 CONTINUE 
37° NINO 
38 NJe0 
39 IF (ISw(46)eEGec) GB TE ZcC 
4Ce C REAC BEUNCS 
44e READ(NCARDs1003) KOTAP»,KCBST,KOLFT»KCRGT 
4ee KCTOPsKkCTAF+coc 
43° KCBBTsKCDB81T+200 
4ue KCLFTSKCLFT+200 
456 KCRGT#®KCRGT+20C 
iT eas BLTFLT KOTOFs KCRATsKOLFTsKDRGT 
47 1003 FSRMAT( 2015) 
4Be 41C CONTINUE 
49« IF(ISW(46)eNEoe) GB TE Ecc 
5Ce G DLT I7P LOGIC 
Si. IF(NBReEG eC) READ(NDOLTs10C4sEND*9Q0) NBR,KCLTLT,NOLTLGR, 
52° " NOLTLGL 
53° BLTFLT NBR» NOLYLTsNOLTLGR»sNCLTLGL 
Bye C ChKECK BOUNCS 
556 1004 FORMAT(5Xs16s3173) 
566 IF (CNCLTLT*GTeKOTAP) eORe(NOLTLToLTeKCBET)) Ge TA 150 
4&7. IFC CROLTLGL oh TeKOLFT) eANCe (NOLTLGReLTekOLFT); G@ Th 1450 
SRe IF ((NOLTLGL + GT eKORGT) eANDe (NOLTLGReGTeKDRGT)) GO TE 150 


S96 c68 Té 200 
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7 eCe C BLTSIDE BEUNCS 4 
F 61e 15c CONTINUE “§ 
: eee BLTPLT NBR % 
e2e IFCNBReL Te (SCOeNIN)) NINSNIN+NBRINBR2Q3G6 TA 110 
64s NBRENBR=(3CUPNIN) 
6Ee CALL BLFFER IN(ITAPE, Os IBLFIN(1)9165Ce,1KEY,NI) 
66° 151 CONTINLE 
B70 GO T6 (1524155.1532154) IKEY 
eBe 4Se SUTPLT 'WAITING'; GB TE 181 
69° 153 BUTFLT "EGF weIKE SKIPPIAG's G6 Te 3900 
7Ce : 154 BSUTPLT "ERROR WHILE SKIFFINGt 3; GE TA SOC 
71° 188 CONTINLE 
Jee RINSO 
730 G& Te 150 
74e Cc INPUT LOGIC 
75« 2ecc CS8NTINLE 
76« IF (NBReEG eCoANC eo ISW( 46) EGer) Gé Te 416 
77° IF(NINoLTeNT) GS TB 22C , 
78° BUTFLT NIN 
7S° 2ic CANTINLE 
&Ce CALL BLFFER IN(CITAPEs, Os TBUFIN( 1 )0165Qa1KEY,NI) 
ey G@ T8 (211221522134214) JKEY 
Kee 211 SLTFLT 'wAITING'; G6 TB 210 : 
&3e° 213 SUTFLT 'ERF BN INPLT'G GB TE SOO 
54 214 BLTFLT tERRBR BN FNPLTt 3 GB TE 300 
x5 215 CONTINLE 
REe NTe(N1#4)/22 
» «Ce 87° CECOCE(NT#E2e1C01, TBLFIN( IL)» ND) 
BF &Be « (KOCE( 1) kKCLAT(1) sKLATDEC( 1) sKDLENG( 1) sKLONGDEC(1)e 
. § ase . KELDEP(I)sKFACI)sT*4aNI) 
9¢° 1001 FERMAT (300(11s13¢12¢13212216015)) 
91° NINEQ 
e § 920 C8 218 3815300 
; 3 336 CLATWINS(FLEAT(KLATCEC(1)) 21008) #606 
8 She KLATMIN( I) SIF IX(DLATMIN) 
4 ‘ o5. CLANGM N= (FLe@aT(KLONGDEC({))/10Ce) #60. 
a : Joe KLENGMIN( IT) sIFIx(DLONGMIN) 
4 7° 218 CONTINLE ‘ 
: G8 22c CONTINUE 
F 59° NINSAIA44 
10ce IF (ISW(46)ehEoe) GB TE ee5 
$a" NER#®ABRet 
G2, TFC CKOLATONIN) G7 KCTAP) OR, (KOLAT(NIN) ,b7,K0867)) Ga ye 200 
1u3¢ Te ((KDLONGININ) + LTeKOLFT) e6Re (KOLENG(NIN) eGTekORGT) ) G8 T8 200 
1G4e 225 CENTINLE 
108¢ IF (KURLAT+EGe999) GB TE 265 
106° Ip (KDLAT(NIN) cE Ge KURLAT SCAND ¢ KOLONG(NIN) eEGeKURLENG)) g& TS 300 
107° Cc NEW DEGREE SGUARE 
1086 [a 
109° Cc PREPARING LAST DEGREE SGUARE FOR 67pP 
11¢°¢ C8 266 18196 
iii? C8 25¢ w81s6 
1126 KAVFAC Tp J) ®KAVFACT sd) ZNPTS( ow) 
. & 113° KAVEL (Lau) ®KAVEL (Tag) /NPTS( Jay) 
: 1i4e 25¢ CONTINLE 
} 115° 26c CENTINLE 
116° ENC6CE (1184410022 IBUFOT(4), cp 
BF 117° . KURLATs#KURL@NG,020,C020s0 
: : 118° * C(RCENEL (1p) »KCENFA (1p J) @KCENLAT (Ta. Ye KCENLONG( Is U)0 


119° * KAVEL (1yu) sKAVFA( pu) gNPTS( Lou) oT 8406) 008426) 





12C. 
1l2ie 
leee 
1236 
124< 
125° 
1ce6« 
127° 
128+ 
1296 
13¢¢ 
l3ie 
132° 
133° 
La4e 
135° 
136° 
137° 
138+ 
139° 

4&Cte 
icf 
142+ 
143° 
144, 
1456 
146+ 
1476 
1486 
149° 
15Ce 
151° 
152° 
153¢ 
1546 
155-6 
1866 


26s 


1002 
Cc 


27c 
28c 


30C 


gcc 
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CALL BLFFER OBLT(UTAPEsC, JEUFEBT(1) ,29620KEY,NO) 
CSNTINLE 
KURLATSKCLATININ) 
KURLENG SKOLANG(NIN} 
FORMAT(37( 16s 1622122216814) ) 
CLEARING ARRAYS EEF@RE NEW DEGREE SQUARE 
C8 2ac J#1s6 
C8 270 ysisé 
KAVFA( IJ) 80 
KAVEL CI4J5) 80 
NPTS( law) 8C 
KCENEL (120) 8C 
KCENFA(T2¥)8C 
FOKFAR( Tu) #999 
KCENLAT( Iau) 80 
KCENLENG( 120) 80 
CONTINUE 
CONTINUE 


ft 
i | 
x 
: 


SAME CEGREE SQUARE 

CONTINLE 

LT ETAUFLOAT UKLONGFINGRIAD)/200C)¢ 
eBTFYX(FLEAT(KLSNGMINONIND )7100C) 42 
IF (KLATMIN(NIN) c€Ge0) Ist 

IF (KLONGMIN(NIN) cEGeQ) wi) 

KAVEL( 1, u) ®KAVEUCT 0) *KELEP (RIND 
KAVFACT aS) SKAVEA( Ted) +KFACNIN) 
NFTS( Toy) *NPTS( I,J) 44 

CISTRSCRT( (KLATMIN(NIN) © (]¥1Q25) ) #24 (KLENGMIN(NIN) @( Ja10"5) ) #82) 
IF(CISTeLTePOWFAR(I,0)) HOWFAR( I,J) 8C1ST3 
* KCENLAT (Iau) SKLATDEC(NIN) 3 
* KCENLONG( Iau) #KLENGCEC(NIN) | 
* KCENFA(I, 0) @KFACNINDG 
*#KCEREL CT au) SKELCEPININ) 

c8 T8 200 

CONTINUE 

sTer 

ENC 
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KIGREST ERROR SEVERITY? o (NE ERRORS) 


DEC hE X 
w@ROS WARDS 
GENERATED CACE: 631 C0277 
CBNSTANTSS 10 COCOA 

LOCAL VARyABLES! 10800 C2a30 
TEMPS? i coco! 

e@ene@ eeeea 


TETAL FRAGRAYs 11442 cache 





C 
Cc 
Cc 
Cc 
C 
Cc 
Cc 
C 
Cc 
Cc 
c 
Cc 
C 
C 
Cc 
Cc 
c 
C 
Cc 
C 
6 
C 
Cc 
c 
Cc 
¢ 
Cc 
Cc 
C 
C 
C 
Cc 
Cc 
C 
Cc 
C 
Cc 
¢ 
C 
C 
Cc 
Cc 
¢ 
Cc 
Cc 
C 
Cc 
Cc 
C 
Cc 
Cc 
C 
Cc 
Cc 
c 
Cc 
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BLTFUT ' 's*PREGRAM CHART » VERSIGN OF 25 SEPTEMBER 1975' 
BLTFLT Bgl 8 
PROGRAM ChART 
PERMIT READING 6F DOLS BLOCKEC CATA TAPES USING SUB. GETo2 
17 SEPTEMBER 1975 
ALLO@w FAR ANNOTATING EVERY N FOURS USING 1Sw(71) 
ADC ABARTSET CALL AND oLMP Ta READ BRACH (310S) 17 YUNE 1975 
VERSION OF 14 NOy 74, TA CORRECT MERIDIGNAL PARTS 
FOR SPHERICAL PLANET 
VERSIGN BF 44 SEPT 19732 SSh 20 § 21 FOR SIZE CANTREL 
ON SEISMICITY ANOTATION IF SSW(16) #1 
VERSION 68F 7 SEPT 1973, ACDING CATE cCrKECK T8 SEISmiCITY ANOT 
AND CHANGE SIZE 6F SEISMICITY SYMBALS THROUGH SSW 45 
PRAGRAM PREDUCES MERCADBR CrRARTS FROM FIXSE CATA, SEAG DATA, GSUM DATA, 
MBaTR DATA, OR CALCM DATA, WITH VALVES PLOTTED BY POINTS BR ALSNG TRACK, 
wITh TIME ANNOTATIOBN BPTION, DATE IS WRITTEN AT EACH CHANGE 6F DAY. 
TIS PREGRAM ALS@ WILL PLAT AND ANNOTATE FROM TABULATIONS BF SEISMIC 
REFRACTIA@N, EARTHQUAKE EPICENTER, VELCANB, AND HEAT FLAW DATA, 


SUBROUTINES USED: GRID2, SLINEs whRs STAT, ISneSP8T2, CALCOmMP REYTINES, RETBYs 
VETEY, TACAY, ARLIM, ENDI6, EVIL, SHTV, DMTER, FIND, GETG, 
GETS, GETP, GETY, GETV, GETLs GETX, ANBV2, FASTAP, GETO2 


PL8T LABEL 

SENSE SwWITCR BPTIOBNS 

TIME INTERVAL ©» READS START ANDO ENC DATE, IF TAPE INPUT, TAPE CAN BE PREq 
POSITIANED BY SPECIFYING RECORDS TO BE SK]PFED, IF NO END Date SPeCiFie0, 
N@ TEST MACE FAR END DATEs 

PLOT FERMATS 4« SCALE IN INCHES PER DEGREE LONGITUDE 2. CONNECT PLOTTED 
POINTS 36 PLOT EVERY NTH POINT 4e PLOTTING EVERY NTH GRIO LINE 

S- PLAT NUMBER 6¢ VALUE T@ BE ANNSTED 7e ANNSTE EVERY NTH POINT 8 FORMAT 
PLOT FORMATS CONTINUED te wf 2e CHARACTER FETGHT (#0007 INCH) 3+¢ INTEGER 
®R NONSINTEGER CHART BEUNDS 4, DIGITS AFTER DeCIMaL PeyNr PLATTED 

pL87 BABLNCARIES « TOp, BOTTOM, LEFT,» AND RIGkKT EDGES & IN DEGREES AND MINUTES 


SSw(q) UP 78 N87 READ ANY INPUT CATA, PLOT BNLY GRID 
SSw(1) LP 1A CELETE DRAWING NOEG GRID LINES (IN GRID2) 
SSk(2) UP IF NEXT PLOT WILL BE ON ThE SAME GRID AS THIS PLET. 
alLs6, LP re aOD CURRENT VELOCITIES Te SHIP'S VELeCITY 
FAR UFMT = 2 AND BLOCK eGTe O CIN SUBe GETO2) 
S$W(3) LP T@ ANNOTATE ANLY aT CHANGE OF CAY 
SSW(4) * FAR N@ MARK AT CATA POINT 
1 FAR PLayriNG a CIRCLE AROUND Carta POINT 
a2 FAR PLOTTING A C8Y AT CATA PBIKT 
SSw(5) #9 TA MAKE DEGREE ANNOTATIONS INSIDE GRID (CHARACTER SIZE geo7 INCH) 
si TO MAkE DEGREE ANNGTATIONS BUTSIDE GRID (CHARACTER SIZE o021 INCH) 
eo T@ MAKE DEGREE ANASTATIONS BLTSIDE GRID (CHARACTER SIZE 9e35 INCH) 
Ssw(6) FAR MULTIPLAT RUNS, LF WILL PUY AN EGF BETWEEN PLOTSe USEFUL Te POP.-S 
OPERATOR IN THE EVENT OF MECHANICAL MALFUNCTION OF PEN, 
SS4(7) LP T&8 ANNOTATE ON LEFT SICE BF TRACK 
CeWN T8 ANNSTATE ON RIGHT SyDE OF TRACK 
SSw(8) LP TG SUPPRESS PLOTTING OF GRID 
SSh¥(9) UP 78 LIST Date aND TIME BF DATA BOLT OF CHART BAUNDARIES 
SSw(10) be T@ CALL SUBRBUTINE MOUNT wHICr ReEaCS IN SERIAL NUMBER 6F INPUT TAPE 
UseC FAR PLeTS HAVING TWO OR MBRE INPUT TAPES 
Ssh(i11) UP 78 ANNOTATE POINTS ALTERNATELY ON LEFT AND RIGHT SIDES BF TRACK 
SSw(iz2) UP Te LIST DATE GF CATA yuST READ FBR IDENTIFICATION 
SSw(13) UP IF TWO BR MORE PLOTS ARE BEING MACE FROM THE SAME TAPE AND THIS IS 





—————— 


a i ee 





j 
} 
. 


AALS NINN 5 EMR 8 CA NSS EPR TSS HT ILO ASE SIGN YONGE HI RD re nO aa SSeARER VOR SELASSIE 


ee 


6Ce 
61° 
le 
636 
64. 
656¢ 
66° 
67>. 
68e 
69e 
706 
7le 
720 
73° 
74. 
75° 
76« 
77. 
78. 
7G9e 
&Ce 
RLe 
82e 
83° 
B4e 
B56 
860 
87° 
88 
896 
9Ce 
Sie 
S2e 
93° 
G4e 
95° 
Sée 
976 
98° 
996 
100° 
101° 
102s 
103¢ 
104° 
105° 
106. 
197° 
108° 
1096 
110° 
111° 
112¢ 
tle: 
14. 


115° 
116° 
117. 
118s 
119¢ 


iE 


NOT TRE LAST PLOTe TAPE WILL GE PASITIONED AT BEGINNING 8F CURRENT 
FILE EVEN IF END@OFeF ILE PASSED. 
SsW(15) s\ FAR ADDITIONAL SJZE—E INCREMENT IN PLOTTING SYMBALS IF 
SSW(16) 84 
ssh(i6) UF Te PLey sPer FAR SEISMICITY Cara PROPBRTIONAL 78 MAG AND DEPTH 
SSw(17) #0 TO PLOT AN x FOR SEISMICITY CATA PRE#1961 
#1 FOR PREe1961 SEISMICITY DATA T@ VARY ACCARDING T@ MAG AND DEPTH 
"9 N8T Te PLAT PRE#1961 DATA 
$Sv.(18) #0 T@ MAKE ANNOTATION AT RIGHT ANGLES TS INCREMENTAL TRACK (ANO6V2) 
®1 T@ MAKE ANN@TATIANS HORIZONTALLY 
TA MAKE ANNOTATIONS VERTICALLY 
#3 T8 INVERT ANNOTATIONS FOR FEADINGS 180 TEA 269 
$S4(41S) #¢ FOR EARTH MERICIGNAL PARTS FROM BOWDITCH 
®4 FOR MERTOLONAL PaRTS FOR SPHERICAL PLANET 
SSW(2C) 8A, (SEISMICITY) FBR ADDITIONAL SIZE INCREMENT FAR ALL DATA PTS, 
SS4(21) sNs(SEISMICITY) FOR SIZE FACTOR BY WRICK PLOTTING SYMBOLS WILL 
VARY ACCORDING TE MAGNITUDE. IF Kes THEN AN@V4 SETS N#26 
$sWw(25)=s 1 7T@ Read Data IN aSCI] CODING RaykeR THAN EBCDIC 
(FOR CFMT = 19 42 AND 5 WITH BLOCK = 0) 
SS4(71) = N T@ ANNOTATE EVERY N HBLRS BN THE HBUR 


AOINON NOON DODO ANNAHANANAAANANHANA 
J 
rw 


CIMENSIAN IBUF(1Q00) ,LABELP (20) sNOW(4) 4 TEND (4) 
INTEGER BLOCK 


o 


TIN = {05 
II6UT = 108 
IFMT20 
INYRaQ 
MFILEsQ 
CALL ABBRYSET(310S,15) 
C PRINT CATE AND TIME OF 6B BN HEADING 
CALL TOCAY (NOW) 
WRITE(JIOUTZ13) NOW 
13 FORMAT (1x2 4A4) 


WRITE(TIOUT&9) 
S FARMAT( PROGRAM CHART'sSxstANKOTATED MERCATOR CHARTS USING FIXSE, 


1SEAG, GSUM» MBATR, AND CALCM CATA FORMATS +,/+ BTHER BPTIBNS PLOT S 
2e1S ReFR, SEISMICITY, VELCANGES, HEAT FLOW, LUNAR, aND USER SUPPLY 
3EC FARWAT?) 
CALL SETSKP( INC) 
1c CALL PLOTS (IBLF, ~1900) 
C MeVe PeN JN FROM €0Ge ANP aLONG PaPER SO tear IF LerrERING 8UrSrDeE GRO WILL 
C N6T RUN BFF EDGE. 
CALL PLOT(1°0s005s"3) 


CALL STAT 
79 IFLAGa9 
CARO 1 FLAY LABEL (20A4) 
Cc pLT LAgEL 8N LEFT MARGIN OF PLOT © SkIp, CRUISE, DATEs AND AREAs 80 CHARe 


REAC( LIN» 6sEND894,ERR89q) LABELP(I)s 84029 
6 FERMAT(2Z0A4) 
WRITE (TI@LTs7) LABELP( IT)» Iet020 
7 FARMAT(//'PLET LABELS 's2@CA4) 
CARC 2 SENSE SWITCH OPTIONS © SwWy TO SW7S IN COLUMNS 4 TE 79 SWo IN CA@LUMN ao 
INZ © 1SWleg) 
IF (7SW(19) 066.0) AUyPUT 'MeERICTONAL PARTS FOR EARTH FROM BEWDITCH' 
IF (7SW(19) °EGe1) BUTPUT tMERICIONAL PARTS FAR A SPHERICAL PLANET? 
ITAPE 4 
IF ((1SW(10)66G.1)) REAC(IIN,6) NAMEs CALL MAUNT(ITAPE,NAME) 3 
1 WRITE(TI@L1T45784) NAME 
5784 FBRMAT( 'LSING INPUT TAPE NUMBER! 1XsA4) 








ee 


Sts cast ate oe ome 


120° 
121° 
122- 
123° 
12460 
125 
1266 
1276 
128+ 
1296 
130° 
131° 
132° 
133- 
1346 
135° 
136° 
137° 
138-6 
139° 
140° 
14° 
1426 
1436 
1440 
1456 
146° 
1476 
148. 
149° 
15C.e 
151° 
152 
153¢ 
1546 
155¢ 
156¢ 
157¢ 
158° 
159° 
160¢ 
161¢ 
162¢ 
163° 
164° 
165° 
166° 
167° 
168¢ 
1696 
170° 
171° 
1726 
173° 
174 
175-6 
1766 
177° 
178° 
1796 


oO 


Cc 
CARC 
5 


o 


6365 


17 
¢. &? 


Cc SP 
11 


CaRO 


3 


6438 


Tn 
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POSITION LABEL CEPENDING WHETRKER ANN@TATINN INSIDE @R BUTSIDE “2:0 
PLACE #0 0&0 

IF (ISW(S) eEGe1) PLACE#e1035 

CALL SyMBOL(PLACEs1¢O2 0014s ABEL Pe 9000280) 

ANNOTATE CATE CHART MACE IN LOWER LEFT CORNER BF PLOT 

CALL SYMBOL (PLACE s #9 048s 6007+NOh2000016) 

CALL PLOT(O*0,Ce0,3) 


3 TIME INTERVAL OF DATA, ANO IF TAPE INPLT « POSITIEN SN Taree 

INI Ted 

wODA 80 

wOMB20 

WOYRaO 

WOeM eC 

NYet 

NZ"4 

NWed 

IE8DeQ 

IGAPsC 

TAGAP 20 

NPTSa0 

IPCTs0 

RADEG#57 029578 

DEGRA#1+¢745329E<2 
READ(TINs»2) ISTDA,ISTMB, ISTyR,ISTHM, TIENDA, TENMB, JENYR, TENHM, ISKP, 
LISFILs IBCKUP 


é FORMAT(91201495Xs31221495X%0 315) 


WRITECI IOUT, 6365) 1STOA,ISTMA,ISTYR,LSTHM, JENDA, LENMG, IENYR, 
1_IENHKM,ISKP,ISFIL 
FORMAT(ISTART DATE 1,3] eo4Xe lua SXetEND DATE ta3laeyXs 14s 5Xs 1RECORD ; 
1S SKIPPED T8 START OF INTERVAL CISKP)% ',14,/2X,'FILES SKIPPED TO 3 
QSTART @F INTERVAL (ISFIL)S 'ole) 3 
IFC I@CKLPeNE®O) WRITE(II1@LT217) JBCKUP 
FORMAT(? SERIES BF BYERLAPPING CHARTS BEING MADE, ByERLAP OF NEXT 
1 CKARY @N THIS CHART WILL BE ',ly,! RECORCS,') 
ACING FILES 6N MULTIFILE INPUT TAPES 
IF(ISFILeEGeC) GB TO 11 
CALL SKPFIL(ITAPE,ISFIL,IFWO!) 
G8 Te (997911211199729972997) IND 
AGING RECORDS GN INPUT TAPE 
IF(ISKPeEGeQ) GA TO 8 
IFCISKPeGTec’ CALL SKPREC(ITAPE,ISKP,'FWO!) 
IF(ISKPeL 100) ISKPeelSKP; CALL SKPREC( ITA es ISKP, IREy!) 
G8 TA (99928»999999,999,999) IND 
4 PLey FORMAT PARAMETERS 


8 era crane earrirnr welea neg euaNMENT Pre 


FERMAT(Figeg2aI501XsA4eulS) 

IF(WFMT e&Ge 4) JFMTad 

IF(YFMT e€Ge 2) IFMTs4 

IFC WFMT e€Ge 4) [FMTs3 

IF(QFMT eEGe S) IFMTa2 

IF(IFMT e€G> oO) BUTPUT 1 1,1 READ ROUTINE IS NOT GETo2tot 1 

WRITECTIOLUT, 6498) SINCh, I TRK,LONT,NCEG, NUMPLLNPTA, JFMT,NX 

Pacis be SCALE (SINCH) wi sF7e3,) INCHES PER DEGREE LONGITUDE! 
194X%st TRACK POINTS CONNECTED (ITRK) St, TopgX,tPLOTTING EVERY NTH POI 
ONT (LENT) $'e]2072Xe PLOTTING EVERY NTH DEGREE LINE (NDEG) 3 ta les4xe 
3’PLOT NUMBER (NUMPL) sty Ags4X,tANNOTATE EVERY NTH PLOTTED PAINT (NP 
HTAIS, L2972Xa "DATA FORMAT (WFMTIS',l2e4X%,' VALUE ANN@TATED (NX)3', 


512) 
WRITE(ILOUT#6493) NFILE 





gi es - . r SE ee ‘ & ‘ " 
Pee ees ben icin gs , a i a a a aie arene 


eS anainneineeienetenenmetiemenneenimnsiie sie 
eer aa aah SSO AANA PTOI STRAT EN PRM HUTA PSNI TORN TRA BOTS PINE SEE RE AMEN Ao 7 AR eS TAN NPR 


SUE 


| 
: 180° 6493 FERMAT(' NUMBER GF FILES BEING BUTPUTTED ON SAME GRID {(NFILE) 3113) 
4 181° Cc wFMY SPECIFIES THE FORMAT BF TRE DATA 
q 182¢ © 1 eee FIX DATA 
4 183° c 2 ees SEAG1 DATA 
. 184e C SFMT 3 eee GSUM DATA 
B 1856 ¢ 4 eee MBATR DATA 
4 186° C 5 eee CALCM DATA 
187. € 6 eee STATN DATA 
4 188° c 7 eeeSPFMT DATA 
; 189¢ Cc Seee VALCANBES 
: 190° iG 1OeeeHEAT FLAW 
re 1916 Cc LieeeLUNAR DATA 
; 1926 c deeeeFLEXIBLE (SUPPLIED BY USER) 
4 193° (= 
; 1946 NSKIPalCNT#} 
F 195¢ NSTBPSLCNT 
a 1966 MSTQPeNPTA 
1976 CARD 5 PLOT FORMAT PARAMETERS 
} 1986 READ(JINe&) KPTAKHT,ICTYPs JDECs BLACK 
: 199¢ 4 FORMAT(5G) 
; 200° WRITE( IT IO@UT26499) KPTesKeTsICTYP,IDEC, BLACK 
edte 6499 FORMAT('MAGNIFICATIEON FACTOR (KPT) 8',1a,4X,' CHARACTER HEIGHT *9007 
202° 1 INCH (KHT)8's12s4Xe'NON@ INTEGER BR INTEGER CHART BAUNDS (ICTYP):! 
203¢ 2el2es2Xe DECIMAL PAINT IN ANN@TATION (IDEC)Stalas/ 
2040 $ " USING THE DDLS BLOCKED TAPES (NB/YES) e(0/1)3 ',F3,0/) 
205° € 
206° Cc IDECsN FOR N CIGITS TO RIGHT OF CECIMAL PT. IN SUBR AN6y2 ANNOTATIEN 
2076 c 50 DECIMAL PT @NLY 
208° ¢ °1 SUPPRESS CECIMAL PBINT 
q 209° ZZ = KPT 
2106 SINCH =» SINCH # 22 
211° ZHT aKPT#KET 
| 2126 CARD 6 PLOT BELNDARIES (CARCDS 6 T8 9 IF NONeINTEGER BBUNDS) 
213° Cc 1T6P, [B6T, ILEFT, IRIGT REAC IN BY RETBY 
214° WRITE(TIGUTs6364) 
215° 6364 FARMAT(ICHART BBUNDARIES;1,20xs 'EAST AND NORTH POSITIVE’) 
216° IF CICTYP) 20522052210 
2176 21c «CabL RETBY < 
2186 A( IDATA,IESDS TIN, LIQGUT, I TAPE, NUMpL s DATAsRLATs RLONGs KEGHMs IAGApa LCN 
219° ET,RADEG, DEGRA, KDEGa, IDEGa,FOEGo,RDEGo,RTOP,ITOP,RBOT, [BST»RLEFT, 
220° C ILEFT,RRIGT, IRIGT,SLTK, SLGK, SINCH, SMP, FBOT,FTOP,FLEFT,FRIGT,NDEG, 
2226 Se 76 230 
223° Cc CEGREES AND MINUTES FER RTOP, RBOT, RLEFT, RRIGT READ IN BY 
2246 ¢ ARLIM AS CALLED BY VETBY 
2256 205 CALL VETBY 
226« Ac ICATA,TESO, TIN, TI@UTsITAPEsNUMPLaCATA,RLAT es RLONGs KEGHMs LAGAPsLCN 
2276 BT, RACEG, SEGRA, KOEGa, IDEGz, FOEGS,RDEGo,RTOP,1TOP,RBOT, IEOTsRLEFT, 
228s C ILEFT,RRIGT, IRIGT,SLTK,SLGK,SINCH,SMP,FBOT,FTOP,FLEFT,FRIGT,NDEG, 
2296 D SLAT,SLONG,BOTMP,XX,YY,INIT,XOLD, YOLD) 
230° 230 CONTINUE 
23i¢ G 
2326 Cc * INITIALIZE GETO2 
2336 c 
234° IF(UFMT eEGe 1 «6Re 
235° $ wFMT eEGe 4 eBRe 
2368 $ wFMT aac 5 oBRe 
237° $ BLOCK eGTe Oo 
238s $ ) CALL GETQ2 (I TAPEs0, 
239° $ wOAs yO a UYRa JHMsRLATs RLONGsNXeNVaNZoNpo 
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240¢ 
24le 
2426 
243° 
244e 
2456 
246e 
2476 
248e 
2490 
250° 
25ie¢ 
2526 
253° 
2540 
2556 
a56e 
2576 

5ae 
85. 
26Ce 
261° 
262° 
263° 
264e 
265° 
2660 
2670 
2686 
269¢ 
270° 
271° 
272° 
273 
274s 
2756 
276¢ 
2776 
278 
2796 
280° 
281° 
282° 
283° 
284 
285° 
286° 
2876 
2880 
289° 
290+ 
291° 
292° 
293° 
2940 
295-6 
296° 
2976 
298s 
299° 


Cc T9 SET BRIGINe MERIDIGNAL PARTS FROM BewO] TCH 


118 z 
$ DATAXsDATAYsDATAZsDATAWs I TRKaLCNTsNPT Ag IDECs 
$ TEO02 TAGAP, JFMT» INYRs BLOCK) 

IF (ISw(19)eEGe1) GB TS 240 


. @ ABS(RBET)/200+(45eC#CEGRA?) 

B® (ALOGISIN(A)/CAS(A))) * 004342945 
BOTMP a7 eS1S7Q4E403 #89 (230e26893"SIN( ABS (RBOT 
1))9(Oe0525*(SIN(ABS(REBT)))*#*3) 

Ge Te 15 

24c CONTINUE 


- 
Ss TMI 8 NER te Rt RRL Tahal ae atip ia 
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c TO SET GRIGIN » MERIDIGNAL PARTS FOR SPRKERICAL PLANET 


ASABS(RBE8T) /2004+(45e0*CEGRA) 
Ba (AL@G(SIN(A)/COS(A))) 
BE TMP 03437074748 
15 IF(RBET) 20030230 
2C BBTKP s #BETMP 
3c IFCICTYP)22022,32 
SUBROUTINE BLINE Zor GRID ENCLOSED BY N@Ne INTEGER DEGREES 
CALL O@LINE(ZZ2,ZKT, 
A I10aya,1e60,] IN, TIUT, [TAPE NWYPL, QATA,RLAT,RLONG, KeGHM, TAGAP, LCN 
BT sRADEGsDEGRA, KDE G2 IDE GasFDEG2 /ROEG2,RTOP, ITOpsRBOT, IBST»RLETs 
C ILEFT,RRIGT,IRIGTsSLTK,SLGK,SINCH,SMP,FBOT,FTOP,FLEFT,FRIGT,NDEG, 
D SLATSSLONG,BETMP,XX,YY,INITsXOL0y YOLO) 


Cc CRECKING IF @NLY DRAWING 6F GRID WANTED 
IF (TSW(0))3102310091 
é SLBRAUTINE GRID2 FOR GRIC ENCLOSED By weOLE DEGREES 


32 CALL GRID2(2Z2Z, ZHT,NUMPL,CEGRA»FCEG2,RDEGo,RTOP, ITEP, REOT, 1BET, 
1 RLEFT,LLeFT,RRIGT, IRIGT,SINCK,SMP,FEOT,FTOP,FLEFT,FRIGT,NDEG, 
2 SLATsSLONGs BETMP) 
CRECKIANG IF @NLY DRAWING 6F GRID WANTED 
TFC ISW(0) 13100310091 


END BF INITIALIZATION, BEGIN PLOTTING PBINTS 


CHECKING If TRACK PBINTS SHELLD BE CONNECTED 
25 IF(ITRK) 40740045 
4¢ 1P = 3 


T6 70 
45 IFCINIT) $5255.50 
5¢ IP 8 3 
G6 T8 70 
5S IF (IGAF) 65965260 
6c IP # 3 
G8 Te 70 
65 Ip e2 
C PLOT CATA POINT 
7C «=6SLAT 8 ge 
SLONG s RLGNG 
CALL WhR (DEGRA, FOEGS,ROEGO,RLEF T,SINCH, SMP, SLAT»SLONG, BOYMP,XX,YY) 
CALL PLOT(XX, YY, IP) 
IpcTsIFCT+1 
IF (ISW(16)) 7397307 
71c CALL saeva tke V¥eDATAZ/DATAW,WYR) 


G 72 
(> Sneek FOR TYPE BF DATA POINT ANNSTATION MADE IN SPOT? 
73 CALL SPOT2(Xxe YY) 
74 DATASCATAX 
IF (NX)74072071 
71. MST@PeMSTOP=4 


Anan mn 
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IF (MST6P)871,871272 
CONTINUE 


TEST FOR TIME ANNOTATEC AT 2@ FOLR INTERVALS 


IF(ISW(71)) 87228782872 
2 IF(WCA = JODA) 87528730875 
IFCFLOAT(CUHMZ100) © FLOAT(UAHM/100)} 874,72,874 
ITCTsITCT + 1 
IFCITCT eL Te I1SW(74)) G8 TO 72 
ITCTs0 
CONTINLE 
CALL ANGV2(ZZ,ZHTSNX, ICA sy wMB a wYRa JHM sy ODA XXe VY, INIT, DATAs IDEC) 
MSTBPBAPTA 
INIT = O 
RLT@ » RLAT 
RLGS = RLONG 
wODASLDA 
JOMGe Me 
wOYRe YR 
WOHMa kM 
NPYSSNPYS#4 
DATA P@INT PLOTTED, INPUT NEXT DATA POINT 
INGUT CATA FERMATS; 308 FIXSE 308 SEAG1 3114 GSUM 308 MBATR 308 CALC 
314 STATN 340 SPFMT 342 SEISMICITY 344 VEOLCANBES 346 HEAT FLEW 
34a LUNAR DATA 350 FLEXIBLE (USER SUPFLIEC) 
31¢ G8 TE (3084308231173082 308931423402 342s 3449 346s 3489350) FMT 
308 CONTINLE 
IF (BLOCK eEGe © eANDeo Vent eE&Ge 2) CALL GETS(ITAPEs 
S$ NXsN¥eNZaNW,DATAX,DATAY sDATAZsDATAWSRLAT,RLONG, 
$ wOAgwMGauYReUHMs TEGO) &¢ GE TE 78 
CALL GETO2(ITAPEs 1s 
$ wOAgeMBauYRe GHMZRLATs RLONGsNXaNVaNZaNwWe 
$ DATAX,DATAY,DATAZ,DATAM,ITRK,LCNT,NPTA, IDEC, 
t TEGps TAGAPs IFmTs INYRABLECK) 


Ge Te 78 
CALL GETG (ITAPE,NX,NY,NZ,NW,DATAXsCATAYsDATAZ,s DATAW, 
1 RLAT,RLONG, SBA, JM6, JYR, whM, Teec) 


g8 T8 78 
314 CALL GETST ( ITAPE,NXsNYsNZ¢NWsDATAXs DATAY DATAZSDATAN, 


1 RLAT,RLONG, vA, IMO, JYR,uhM, IED) 


g& T6é 78 
g4¢ CALL GETP, LTAPE,NX»NYeNZ,NWyOATAX, DATAY,CATAZs DATAW, RLAT, RLONGs 


1uDAy wM8 a JYRa Hes TE6D) 
G8 T6 78 

auc CALL GETY(ITAPE,NXsNYsNZ,NW,DATAX,DATAY, DATAZ,DATAW,RLAT,RLENG, 
1 DA, MO, JYR,vHM, LEBD) 


68 T8 78 
CALL GETVY (IYAPE,NX, NY,NZyNWyDATAX,CATAY »DATAZ,DATAW> 


1 RLAT,RLENG, DA, UME, UYR,ubM, 1E80) 
68 T8 78 
346 CALL GETHK (I TAPE,NXsNY,NZyNW,DATAXsCATAYS DATAL: DATAW, 
1 RLAT,RLONG, DA, UMB,JYR, vkM, LE OC) 
G8 Te 78 
CALL GETL (ITAPEsNX,NY,NZyNW,DATAXsDATAY »DATAZ,s DATAWs 
1 RLAT,RLONGs wDA, MBs SYR, VhM, TEBC) 
G8 Té 78 
35¢ CALL GETX (IYAPE,NXsNY,NZsNWsDATAX,CATAY 2DATAZsDATAWs 
1 RLAT,RLONGs «DA, IMO, JYR, UHM, LEGO) 


peancnadl obit isc Rane naelite ten sella i lth yc Na 


8 NCS NOL ins sr MAPA re 
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344 


348 





4 
5 
a 
120 # 

360° 78 IF (JE@0"1) 85s121201212 3 

361° 1212 NFILESN\FILE®, 

3626 IF(NFILEeLE*O) GO Te 12 

3636 INIT 8 1 

36460 TE80s0Q 

365+ MPILESMFILES4 

3666 -  @LTPUT 'PL@TTING CONTINUES FROM NEXT FILE! 

367° G8 T8 310 

368° Cc 

3696 C ENC 6F CATA FILE « CHECK SENSE SWITCHES FOR NEXT STEP 

37Ce C 

3716 C CRECKING IF ANGTHER PLOT FELLEewS SR TS EXIT 

372° 12 IF (ISW¢2) eEGeQeANDelISW( 43) eEQeQeANDe IBCKLP eEGeQ) GB TAH 94 

3736 IF (ISW(2)eEGe1) CALL PLET(0e02000s3) 

3746 Cc SENSE SKITCH 13 CHECKS WRETHER ANOTRKER PLAT tS Te BE MADE FREM SAME 71L7 

3756 IF(ISW(13)) 80581280 

376¢ 8c IBACKsC 

377¢ IF(TEO@DeEGe1) TBACKay 

3786 IF (MF ILE NEO) IBACKeMFILES) 

3796 CALL SKFFILCITAPEs ISACKs 1REV!) 

38Ce € SEGLENTIAL PLATS FROM SAME FILE WITR (IBCKUP) @VERLAP 

3R16 81 IF(TBCKLP+EQe0) GO Te 9¢ 

3820 TBCKUPSIBCKUF +4 

383° IF (TE8peEG*eO) CALL SKPREC(ITAPEs TBCKUPs 'REV!) 

3Bbe IF (TE@DeEGe1) CALL SKPFIL(ITAPEsi, REVI) 

3856 Cc ESTABLISH ORIGIN BF NEW PLOT 

386° 96 IF (ISwW(2)*EGe1) GB TO $5 

3876 X INCRE sABS (ROEG2) *RADEG#S INCH+4 000 

38Re CALL PLET(XINCRE, 000,93) 

389° 95 IF(TSw(6)eEGe1) CALL PLOT (1900270950999), GB TH 94 

39C° C PUT RLN ANC DaTA CARCS FOLLOWING LAST CATA DECK T@ REINITIALIZE PROGRAM. 

391° Ge Te 79 

392° C CLOSE FLET TAPE AND ENDeOFe 8B LABEL FOR POPes OPERATOR 

393° CATA (IEND(L)»Ieqey) Z'END OF CRART ,6B'/ 

3946 91 XINCREsABS(RDEGZ) #RADEG#SINCHY1 200 

3956 C COMPLETE BOTTOM AND RIGHT SICES BF FIOUCIAL hALFeINCH SQUARE DRAWN IN GRID? 

396° CALL PLOT(XINCREs -0050%3) 

397-6 CALL PLOT(O05,000,e2) 

3986 CALL PLET(Ce0s 005202) 

3996 CALL PLOT( 205s "0¢5s03) 

4OCe CALL SYMBBL(000,0¢0,0942s JENDs 9000416) 

Ole CALL PLOT( 40090002999) 

4oO2° Sy IJFCISW(40)cEGey) CALL MREL (4) 

403° WRITECIIOUT,97) IPCT 

4046 $7 FORMAT(' NUMBER PBINTS PLOTTED = '418) 

4O5e CALL EXIT 

406° C 

407° G SKIFPING POINTS, IF EVERY POINT NOT T6 BE PLOTTEDe 

4ORe 85 IF(NSKIP) 18621862185 j 

4Q9° 185 CALL SKPREC(!ITAPEsNSKIP) 

410° GB 76 (9999186s1212/999012120999) IND 

bite C ChECK IF DATE IS WITHIN SPECIFIEC TIME INTERVAL 

4i2e Cc FLAG 1S A FLAG 76 aLLaw SKyPFING TkE FIRST CALL T@ FIND 

4136 c If wE RAVE ALREADY FOUND THE STARTING DATE 

aibe 186 IFCIFLAGeNEeQ) GO TO 82 

4156 CALL FINO (IStOAs ISTMEs TSTYRs TSTHMs yDAs dM Oe dYRo WHMs INDK) 

4166 IFC INCKeEGe*t) GO Th 310 

417¢ IFLAG=4 

4186 82 JF(TENYReEGeO) GO Te 851 


4196 ALL FIND (TENDA,TENMBs TENYRa TENMMa JCAs UM Oa JYRe JHMs INDK) 
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420¢ IF(INOKeEGed) GB TE 995 

w2ie C CRECKING IF DATA WITHIN ChART BOLUNCRIES 
4226 851 NSTOPSLCNT 

423° IF(RT@PeRLAT) 1000100486 

4240 86 IF(RLATeRBOT) 100288. 98 

425¢ 88 IF(RLONG*RLEFT) 100,90,9C 

426° Sc IF(RRIGTeRLGNG) 1000100435 


4276 C CATA 8UTSICE 68F BOUNDS 
428° C WRITING 8LT DATE IF DATA POINT IS BUT BF BAUNDS 


4296 10c INTTe4 

430- TF (1SW(S) )410,3104410 

43i¢ &1C WRITECTIO@UTs 420) IDA, IMO yw YRe JM 

4326 42C FO@RMAT('@OB ',312,1Xs 74) 

433 G8 TO 310 

ake $95 WRITE(TIOUTS996) SDAsdMOeUYRe WhM 

435° $96 FORMAT('END DATE PASSEDtsaXeglaniXela) 

436° Gé@ Te 12 

4376 C ERROR MESSAGES IF MISTAKE IN TAPE FILE @R RECORD SPACING, 


438° $99 WRITE(II@UTs998) IND 
4396 998 FORMAT('ERROR IN SKPREC, INDe!, 12) 


4a Oe G6 T8 91 

4aye 997 WRITE(TI6UTs#994) IND 

e420 994 FORMaAT('ERROR IN SKPFIL, IND#', f2) 
4430 G6 Te 94 


44Ge ENO 
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KIGHEST ERROR SEVERITY! O (N@ ERRORS) : } 

DEC HEX q 

WORDS wERDS i 
GENERATED CODE: 1678 0068E a) 
CONSTANTS! ba o00ec 
LOCAL VARIABLES: 11233 00460 : 

TEMPS! 3 00003 ; 

esesese @eseue0 3 


TOTAL FRAGRAM: 2858 COBRA 
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PRUGRAM CHARTG 


VERSION 8N & FER 76 T8 IMPLEMENT SSW(74) 
VERSION BF 26 BCT 75 TA USE GaBs FaRMar 
VERSTON SF 13 SEPT 75 TA USF GCAN 
INPUT JFMT NUMBER 
-PRAGRAM CmARTG, ADAPTED FRAM CHART 
PRAGRAM CHaRT3, ADAPTED FRAM CHART AND CHART? 8N PR JUNE 19714 


VERSISN 3F MAY 39 1973 
VERSION AF 24 WANUARY READS BNLY GSUM 
VERSIAN 8F 20 DEc 19714 ADD BPTION TA PLAT ANLY GRID 
VERSISN 6F 3 BCT 1974, CHANGE LOCATION BF PLOY RF TIME 
VERSIAN BF 5 BCT 1971, ADDING CBUNTER 79 PeINTSs PLATTED 
VERSTAN BF 23 SEPT 197146 PUTTING LACAL VARIABLES IN chy BN 
VERSIAN SF 2 SEPT 1974, CHANGING T6 SPATS 


PROGRAM PRANUCES MERCAD@R CHARTS FROM GSUM DATA 
WITH VALUES PLATTED BY PSINTS OR ALONG TRACK 
WITM TIME ANNOTATIAN SPYIBN, Date IS WRITTEN aT GACH CHANG AF DAY, 


SUBREUTINES USED; GRIDa, SLINE, WHR, STAT, ISW,SPATs, CALCAMP RAUTINES, RETRY, 
VeTOY, TADAY, ARLIM, ENDIB, EVIL, SHTV, DMTAR, FIND, 
ANBV2, PASTAP 


PLOT LABEL 

SENSE SWITCH BPTIENS 

TIMe INTERVAL e READS START AND END DATE, IF YAPE INPUT, TAPE CAN BE PRE. 
PASITIENED BY SPECIFYING ReCARDS 78 Be SKyPPeD, YF NAY END Dare SPECIFIED 
N68 TEST MADE ¢@R END DATE. 

PLOT FORMATS ye SCALE IN INCHES PER DEGREE LONGITUDE 9. CANNECT PLOTTED 
PRINTS 36 PLET EVERY NTH PAINT ye PLATTING EVERY NTH GRID LINE 

Se PLAT NUMBER 6¢ VALUE TOA BE ANNETED 7e ANNSTE FVERY NTH PBINT &, FARMAT 
PLOT FORMarS CANTINUED 1, #1 2. CHARACTER HEIGNY tan ny INCH) 3, INTEGER 
AR NBNe INTEGER CHART BBUNDS we DIGITS AFTER DECIMAL pAINT pLOTTED 

PLOT RSUNDARIES » TE&Ps BATTAM, LEFTs AND RIGHT E0GFS « TN OFGREES AND MINUTES 


SSW(5) UP TA NAT READ ANY INPUT DATA, PLOT BNLY GRID 
Ss¥(1) UP 78 Delete ORAWING NOEG LINes 
SsW(2) UP IF NeEyT PLAT WILL BE ON THE SAME GRID AS THIS PLAT, 
SSW(3) UP T8 ANNATATE SBNLY AT CHANGE OF DAY 
SSW(4) a9 FSR NB MaRK ay Data POINT 
ei FAR PLATTING A CIRCLE ARBUND DATA PBINY 
s2 FAR PLATTING A Dat AT DATA PRINT 
SSwl5) sO T8 MAKE DEGREE ANNSTATIONS INSIDE GRID (CHARACTER SIZE 0207 INCH) 
=e, T8 MAKE DEGREE ANNOTATIONS BUTSIDE GRID (CHARACTFR SIZE yep, INCH) 
e2 19 ees an 3 ANNOTATIONS BUTSIDE GRD (CHA~RaCreR SrZeE 3°35 YNCH) 
SS¥(6) FER MULTIPLAT RUNS, UP WILL PUT AN EAF BETWEEN PLOTS. USEFUL TA PDP eS 
BPERATAR IN THE EVENT BF MECHANICAL MALFUNCTIAN BF PEN, 
SS¥(7) UP 78 aNNATATE BN Litr SIDE OF TRACK 
DBWN TA ANNATATE SN RyGHy syDe AF 7RaCK 
$sw(a2) UP TA SUPPRESS PLOTTING AF GRID 
SSW(g) UP TO LIST DATE ANO TIME GF DATA BUT BF CHART RBAUNODARTES 
SSW(10) UP 70 CaLL SUBReUTINe MAUN? WHICH Reads IN S_eRral NUMBER AF INPUy paPe 


60° 
41. 
B26 
63+ 
B4e 
65e¢ 
666 
57. 
68 
496 
706 
Fie 
726 
yee 
The 
756 
76.0 
We 
78 
796 
RO 
Rie 
R20 
RZ: 
Rhe 
B56 
BAe 
R7e 
RBe 
R3e 
BD 
Qle 
92. 
93° 
Dee 
95° 
96e 
37. 
93» 
99+ 
1006 
1016 
102+ 
103° 
104° 
195° 
1066 
1076 
108° 
109° 
110° 
1ile 
jie* 
1136 
114. 
115° 
1166 
1176 
118° 
119° 
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USED FAR PLATS HAVING TWA OR MARE YNOUT TAPES 
ssh(it) UP T& ANN@raTeE POINTS ALTERNATELY ON LeFr AND RIGHT SI%> 9 K 
SSwt12) up TS LIST DATE BF DATA QUST READ FAR IDENTIFICATION 
SSW(43) UP ITF TWH PR MERE PLATS ARE BEING MADE FRAM THe SAME TARE AND Thre Gg 
NOT THE LAST PLAT, TAPE WILL BE PASITIANED aT 8fGI™ ¢ 
FILE EVEN IF ENDeO@FeFILE PASSED. 
SSW(ig) #0 19 MAKE ANNGTATIAN AT RIGHT ANGLES TA INCREMENTAL TRACK Cove) 
={ TS MAKE ANNOTATIONS HERIZANTALLY 
ap T8 MAKE ANNOTATIANS VERTICALLY 
#3 TA INVERT ANNOTATIONS FBR PEADINGS 180 10 249 
SS¥(19) so FAR EARTH MERIDIANAL PARTS FROM pAWDrTCH 
ey FAR MERTOTBNAL PaRTS FOR SPHERICAL PLANET 
SSY(71)=N TO ANNOTATE EVERY N HOURS 


NA AAANNDNAANANAD AD 


e 


DIMENSTAN IBUF (1900) 4LABELP( 20) »NBW( 4), TEND( 4) 
CaMMen BUF, LaBELP, NAW, IIN, [TOUT, 
MFILE, INDs IFLAGs Ie NZER9, NWON, 

ZERB, INZ, ITAPEs NAME, PLACE, INIT,s 
X8LD, YALD. JADA, JAMBA, JOYR» JAHM, 

N¥o NZs NWs ITE8D, IGAP, ILAGAP 

C3mmMON NervS, ISTpA, ISTm8s ISTYR, ISTHMy TENDAs 
IENM8, JENYR, IENKM, ISKP, ISFIL, IBCKUP, 
RALDEG, DEGRA, SINCH, ITRK, LCNT, NDEG, 
NUMPL,» NX, NPTA, JEMT, NFILEs NSKIP, 
NSTOP, MSTAP, KPT, KHT, ICTYP, IDEC 
C8MMON 272, ZHT» IDATAy DATAy RLAT, RLOANG, 
KOGHM, KDEG2, IDEG2, FORG2s RDEGa, RTAP, 
ITOP, RBAT, I89T, RLEFT, ILEFT, RRIGT, 
IRIGT, SLTK» SLGKs SMP, FBBT, FTOP, 
FLEFT, FRIGT, SLAT, SLANG, BOTMP, Xx 
CSMMBN YY, A, By IPy DATAZ, DATAW, 

DATAX, JDAs YMBe UYRe YHMs RLTSD 

RLG@, DATAY» KGDAs KGMB, KGYR» KGHM, 
IRACK, XINCREs JNDK 


Fann Fewer 


Fwne 


& Ve 


ITN # 108 
TISUT # 108 
MF ILEsO 
Cc PRINT DATE AND TIME AF YAR AN HEADING 
CaLL TANAY(N@wW) 
WRITE(YIS8UTZ13) NOW 
13 FARMAT(IX, 4A4) 
CUTPUT 'PRAGRAM CHARTG VERSION OF & FER 76! 


CALL SETSKP(IND) 
10 CALL PLATS (1BUF, ©1000) 
M@ve PEN IN FRAM ENGE AND ALANG PAPER SO THAT IF BUTStOe GRIN LETTERING WILL 
NOT RUN BFF ENGE. 
CALL PLOT( 9059005499) 
Call STAT 
79 «=I FLAGsO 
CARD 4 PLAT LABEL (20A4) 
[s PUr Label aN LeFr MARGIN OF PL@T « SHIP, CRUrse, Dare, aN? AREAe 80 CH ARs 
READ TIN 6sENDS94 0ERR®94 ) LABELP(T)s 1e1920 
IF (ISW(5) .EQe4) PLACE 804035 
6 FSRMaAT(20a4) 
WRITE (TI@UT#7) LABELP(T)s 101920 
7 FARMAT(//1PLOT LABEL! teaQAa) © 
NZERG80 


an 








1206+ 
1216 
1226 
1236 
124. 
1256 
1?66< 
127. 
1286 
1296 
130° 
1316 
1326 
133. 
134. 
135° 
1366 
1376 
138° 
139° 
1406 
14le 
1426 
1436 
14heo 
1456 
1466 
147.6 
1486 
1496 
1506 
15ie 
1526 
1536 
154< 
135° 
156, 
1576 
158. 
159° 
160¢ 
161° 
162° 
1636 
1646 
165° 
166° 
1676 
168° 
163° 
170° 
171° 
17ee 
173° 
174. 
1756 

The 
13. 
786 
179° 
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NwONey 
ZERO 8000 
CARD 2 SENSE SWITCH APTIGNS « SW{ TO SWy7qg IN CALUMNG 4 TA 79, SWa IN CBLUMN an 
INZ ® [Sw(e2) 
IF (1SW(19).69.0) GUTPUT MMERTDIBNAL PARTS FAR FARTH FRAM BBwDITCH) 
IF (ISW(49),EQ.1) GUTPUT 'MERTOTANAL PARTS FAR & SPHERICAL PLANET! 
ITAPEs4 
TF ( (1SW( 10) eEGe4) READ TINGS 765) NAME ,;CALL M@UNT;( ITAPESNAME ) 
*#IWRITE(TIAUTS,§784) NAME 
57R4 FaRMay( 'USING INPUT TaPE NUMBER! 1X,,a4) 
5765 FARMAT(AY) 
C POSITION LaBEL DEPENDING WHETHER ANNOTATION INSIDE AR BUTSIOE GRIND 
PLACE #00080 
CALL SYMBAL(PLACEs0 0520014 sL ABELP,9000,80) 
€ ANNOTATE DATE CRART MADE IN LOWER LEFT CARNER BF pLer 
CALL SYMBAL (PLACE s #090484 Q¢Q7#NOWs Qe Qs 16) 
CaLh PL987(0+0,0°0,3) 
€ 
Cc ¢ 
CARD 3 TIME INTERVAL OF DATA, AND IF TAPE INPUT « PASTTIAN BN TAPE, 
5 INITSNWAN 
x9LOaZERB 
YOLDsZERA 
JSDASNZERS 
JIMA SNZERA 
WAYRENZERB 
WARMaNZERA 
NY ®NWON 
NZ sNWBN 
NWSNWON 
TESO#NZERA 
IGAPSNZERB 
TAGAPsNZERA 
NPTS#NZERB 
TPCT aNZERB 
RADEGs= 7059578 
DEGRA#1 27453296 02 
READ (TIN, 2) ISTDA,ISTMB, YSTYR,ISTHM, TIENDA, TENMA, TENYR, TENHM, ISyp, 
,ISFILsTBCKUP 
> PONTAT Cal ast oo GXs gl 2s Tas BXs 318) 
WRirec119U7,6365) 1S79a, IST%O,ISTYR, ISTHM, PENDA, TENMA,TENYR, 
beeaee aout one 
$365 FERMAT( «START DATE va al a9 Xa Te 5X2 yENOD DATE waatos Xe las SXs pRECARD 
1S SKyPPeD 79 S7yaR7 OF INrERVal (ISKP)t ', yh, sax, 'F yLes SKyPPeD 7h 
PSTART BF INTERVAL CISFIL)$ '»Te) 
C SPACING FILES 8N MULTIFILE INPUT TAPES 
IF (ISFILeENeg) G8 T8 tt 
CaLh SKPFrL¢rraPe,1SFIL,'FWO') 
G8 TO (997044041299729972997) IND 
C SPACING RECARDS ON INPUT TAPE 
41. IF CISKPeEQeg) G8 T6 8 
CaRD 4 PLAT FaRMary PaRaMevERS 
8B READ( TIN, gySINCHs I TREsLENTs+NDEGSNUMPL NPT AS FMT Nye NFILEs Tal K 
3 FORMAT (F ¢90 9031 50459515) 
WRIvECTIBUT, 6498) SINCH, 1TRK,LCN7,NDEG,NUMPL NP TA, UFMP,NX, t8LK 
6498 FERMAT( tCHART SCALE (SINCH) wtsF 7%ege! INCHES PER DEGREE LANGITUDE: 
124Xs' TRACK POINTS CBNNECTED (ITRK) S$ ty losyXs PLOTTING EVERY NTH PST 
Ont (LONT) S$ tel 2e72Xe'PLATTING EVERY NTH DEGREE LINE (NDEGI I's 104K, 
Z'PLOT NUMBER (NUMPL)$',A5,4X,! ANNOTATE EVERY NTH PLOTTED PBINT (NP 
STAYS alos sBXe I DATA FORMAT (QFMTIS Ie l2euXe VALUE ANNOTATED (NX) Ete 








DSS Pini al aren 2 Sibi La Nes 


180° 
181° 
132¢ 
183-6 
{Ree 
{856 
1866 
187° 
188e 
{Re 
190¢ 
191° 
1926 
1936¢ 
194. 
1956 
1966 
197-6 
19Be 
1996 
200¢ 
201.6 


2026 


en3e 
204 
25° 
206-6 
2076 
2986 
2096 
2106 
2iie 
P12. 
eige 
Pi4e 
2156 
2166 
2176 
218. 
219° 
2206 
2216 
222° 
223° 
Pa4e 
2256 
226° 
227. 
228° 
229¢ 
2306 
231 
232° 
2336 


PZ4e 
235° 
2366 
237° 
238s 
2396 
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® 129/22X%2'BLACKING FACTAR BF INPUT TAPE(TBLK):', 14) 
WRITE (TIAUT26493) NFILE 
6493 FARMar(' NUMBER AF Poles BeyNG BUTPUTTED AN SaMe GRY (NF oles st 
C YJFMT 3 «e+ GSUM DATA 
c 
NSKIPsLCNTe} 
NST@PeLCNT 
MST@PaNPTA 
CARD 5 PLAT FARMAT PARAMETERS 
READ( TIN» 4) KPT es KHTsICTYP,IDEC 
4 FARMAT (415) 
WRITE (TIGUT+&6499) KPTAKHT,ICTYPs [DEC 
6499 FORMATC MAGNIFICATION FACTOR (KPT) ats loyyX, ICHARACTER KEIGHT * 
1 INCH (KHy)e!,Ja,yX%,!'N6NeINTEGER BR INTEGER CHAPy BAUNDS (ICTYr. 
20120/2Xs "DECIMAL PAINT IN ANNOTATIAN (IMEC) Es T2) 


€ 
Cc IDECeVaARYABLE FAR DeCrMaL PBINT IN ANB@V ANBTATIAN 
Cc 1DECaN FRR N DIGITS TO RYGHy BF DECIMal Pr, 
C 20 DECIMAL PT BNLY 
c “4 SUPPRESS DECIMAL PAINT 
2Z @ KPT 
S]NCH s SYNCH ® ZZ 
ZHTaKPT#KHT 
CARD 6 PLOT SAUNDARIES (CARDS 6 T8 9 IF NANeINTEGER BAUNDS ) 
Cc ITSP, I89T, ILEFT, IRIGT READ IN BY RETRY 


WRITE (TI@UT» 6364) 
6364 FARMar( 'CHaRy BRUNDAR I ES!t',20X,'casy aND NeReH PasrriVe') 
IFC ICTYP) 29522052210 
Pio CALL RETRY 

is IDATA, [F99, TIN, TI@UT, TTAPE,NUMPL, DATA,RLAT, RL ANG, KAGHM, LAGAP,LON 
parE Ce DEGRA ,KDEG2, 10652, FOEG2,ROEG2,RrAP, ITSP, RBar, 18ST, RLeEFT, 
cfler ted RIgt, [RIGTsSLTK, SLGKsSINCK, SMPs EBOT TSP, CLECT»ERIGTs NOEG, 

5 SLATs SLANG» BATMPsXXsYY,INITsXB8L0, YALD) 


G8 TE 230 
ic DEGREES AND wINYTES FER RTOP, RBOT, REPT, RRIGT READ IN By 
ve ARLIM AS CALLED BY VETBY 


205 CALL VETRY 
At IDATA, TESD, TIN, TIByT, I TAPEsNUMPlL sy DATA,RLAT,RLENG, KAGHMs TAGAPs LON 
BT,RADEG, DEGRA, KDEGo, IDEGp, FOEGa,RDEGO,RTOP, ITSP,RBAT, TBAT,RLEFT, 
C ILEFT,RRIGT, IRIGT,sSLTK,SLGK,SINCH,SMP,FBOT,FTAP,FLEFT,FRIGT,NOEG, 
D SLAT,SL8NG,BSTMP, XX, YY, INIT» XBLD, VLD} 
230 A® ABS(RRAT)/200#(45e D#DEGRA) 
B® (ALAG(SIN(A)s/CB8S(A))) & 0043420945 
BETMPa7*9157Q4E +3 #89 ( 59° 26893*SIN( ABS (RBAT 
1 )) el Oe05P5"(SIN( ABS(RBRT)))##3) 
IF (ROBT) 29930230 
20. «6BATMP = eBATMP 
30 IFCICTYP)27,22,32 
C SUBROUTINE BLING FSR GRIO ENCLOSED py NONe INTEGER DE RRFES 
22 CALL ALINE (ZZaZHTe 
A TOara,Te89, TIN, TISUT, TraPe,NUMPL Dara fen tac od KSGHM ,TAGaP,LCN 
BT, RADEG, DEGRA, KDE G2, IDE Gos FOE G2» RDEG2 RTO ps I Tp, RAAT, IRAT,RLEET, 
C ILEFT,RRIGT,IRIGTsSLTK, SLGK, SINCH, SMP, FRAT, FYBP,FLEFT,FRIGT,NDEG, 
v SLAT, SL9NG,BSTMP, XX, YY, INIT) XBLD, YALD} 


CHECKING IF BNLY DRAWING BF GRID WANTED 


TFC ISW(9))3107340994 


aan AAaNN 


SUBROUTINE GRIOs FOR GRID ENCLASED RY WHSLE DEGREES 








ee LST | $°_saseaesutsistseseretneatteesenssen sheneileeteaiinahdeh sada oeieiae te tenia aeeat 
me — 


: LS SE IT ES Fe 





24Q¢ 
2416 
2420 
243-6 
hae 
245-6 


Pebe . 


2476 
24860 
2490 
250+ 
251° 
2526 
253° 
254e 
2556 
25660 
2576 
258 
259~e 
250° 
261.6 
2620 
263° 
P64, 
2656 
25660 
267.6 
2686 
2696 
270° 
271° 
272° 
e73¢ 
274s 
275¢ 
276, 
2778 
a7se 
e796 
280° 
231° 
PROe 
233° 
eRue 
285° 
PR6e 
287° 
PAB 
P8996 
290° 
291° 
292° 
293° 
294 
2956 
296 
2978 
298° 
2996 


ana aq aan 


aan 


32 
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CALL GRIDS(2Z,ZHT,NUMPL, DEGRA, FOEGS, RDEGS,RTAP, 1TAP,RAAT, IBST, 
1 RLEFT,ILEFT,RRIGT,IRIGT,SINCH,SMP ,FBAT,F TAP ,FLEFT,FRIGT,NDEG, 


2 SLATsSLA@NGsBATMP) 


END 


CH 
35 
40 


45 
50 


55 
60 


65 


PL 
70 


710 
876 
73 


DA 
74 


74 
874 


872 
873 
874 


875 
878 


72 


CHECKING IF ANLY DRAWING @F GRID WANTED 


IF (ISW(9))3102 310091 
OF INITIALIZATIABNs BEGIN PLOTTING PRINTS 


ECKING IF TRACK PAINTS SHAULD BE CANNECTED 
IFCITRK) 40240045 
Ire 3 
G8 T8 70 
IFCINIT) 55055950 : 
IP = 3 
G8 TA 70 
IF(CIGAP) 65*65°60 
IP = 3 
GA TE 70 
IP # a 
8T DATA PAINT 
SLAT = RLAT 
SLONG = RLANG 
Call wHR(DeGRa,FOEG2,ROEGa,RLEFT,SINCH, SMP, SLay, SLANG, RBOTMP,XX,YY) 
CALL PLET(Kxs YYs IP) 
IPCTsIPCT41 
IF (TSWC15) )876, 876,710 
CALL ANBy3¢(xxeYY¥sDATAZsDATAW) 
G8 Te 72 
CHECK FOR TYPe BF DATA PAINT ANNATATIAN MADE IN SPATS 
CANTINUE 
CALL SPATAIXXs YY) 
IF(ISW(18)060+5) GB 78 72 
TA PBINT PLATTED 
DATASDATAX 
IF (NX)74,72,74 
MSTOpeMSTAp © NWEN 
IF (MST9P)8742874972 
CONTINUE 


TEST FOR TIME INTERVAL ANNOTATION 


le¢(lSw(71)) 872087808702 

TF (IDA JADA 87528738875 

IF (FLEAT( JHM/ 4090) @FLABAT( JBHM/100)) 8742709874 
ITCTS1TCT+1 

IF (ITCTeLTofSh(74)) GB TR 72 

ITCTeg 
CRN T ENE 

CALL A AVglZZeZHTaNys OAs MO e GYR, HM» BDA, ye YVeINITSDATA,IDEC) 
MSTAPaNPTA 

INIT 20 

RLT68 » RLAT 

RLG@ = RLANG 

JADASIDA 

J8MB5 UMA 

JBYRaUYR 

JAAM = HM 

NPTS@NPTS*1 





eR 


RS te EE nN a EN RETIRE EARN PNR ES OO AS LIN REPENS | TN Rs 


3906 
391e 
302+ 
3036 
3946 
305° 
306° 
307+ 
BB. 
309° 
310° 
Bile 
312+ 
313° 
314+ 
315° 
316° 
317° 
318. 
3196 
370° 
321¢ 
322° 
323° 
324° 
375° 
32660 
3276 
3286 
3296 
330-6 
331.6 
332° 
333. 
334° 
335° 
336° 
337° 
338° 
339° 
340+ 
Bole 
342° 
343° 
3440 
345+ 
B46 
3476 
348 
349¢ 
3506 
351° 
352° 
353. 
354-6 
355° 
356° 
357° 
358° 
359° 


310 
Cc 


* 


1 


* 
* 


* 
hd 


END 


ss 
Cc 
[ 
G “- 


80 


84 
87 
6496 


83 


96 
35 
¢ CLS 


94 
c CaM 


Bi i a 


Fs > BANS 
nn enrnnenecteteerecereeneeseenmenncrsesneres mnerscntetencmnmcaermnenntencseseu eget ie enn eeeeser ~ememearencinente cee bneencte nage cneenencnncemmmmanercemmmccnsn ent ett 
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CANTINUE 
GSUM DATA 
TF (WFMTeEQ. 3) 
CaLL GerGs¢trraPe,NX,DATAX, SFMT, RYBP,RBAY,RI “Fy, RRIGT, 
RLATsRLONGs YDAr JMOe UY Re UHM» LEBD, IBLK) 
GCAN DATA 
IF (MFMT0EQ043) 
CALL GETGC CITAPEsNXsDATAXsNY SDATAY pNZpDATAL, 
RTAP,RBOT/RLEFTsRRIGT»RLATsRLANG, IE AD) 
GABS DATA 
IF (UFMT cE Qe 14) 
Cabl, GETGACITAPEsNX,DATAXaNYsDATAYsNZ,DATAL, 
RTAP,RBATARLEF TsRRIGTs RLATsRLANG, JE AD) 
CONTINUE 
TF (TEO@De1) 8594214294242 a 
NF ILEeNFILE@1 : 
IF(NFILEeLEe0) GA TA 12 
IESOsQ 
MF ILESMFILE+! 
SUTPUT 'PLATTING CONTINUES FROM Next FILE! 
G3 Te a5 


UF DATA « CHECK SENSE SWITCHES FAR NEXT STEP 


KING IF AN@THER PLOT FOLLOWS BR TO EXIT 
2 IFCISW(2) .E9e0eANDeISW(19) EQ oO eANDSIBCKUPZEG.NY GA TA 91 
IF (TSw(2) eEGe4) CALL PLAT(09090°023) 
SENSE SWITCH 13 CHECKS WHETHER ANOTHER PLAT 1S 1A Be MaDe FRAM SaMe FyLlee 
IF (1SW(13)) 80221280 
IBACKag 
IF(IEGD.EG.1) IRACKe4 
Te (mMPILE«NE*Q) IBACKamFILE+! 
CALL SKPFIL(ITAPE, ISACK, 1REVI) 
SeNSe SWITCH 44 CHECKS WHepHeR ANGyHER INPUP yaPe 1S 78 Be MOUNTED, 
Te (ISwli4)) 83283987 
WRITE (110UT26496) 
FARMAT(/,CHANGE T@ NEXT INPUT TAPE)) 
Cali MCVOL(1) 
SEQUENTIAL PLATS FROM Same FILE WITH (I aCKURy @yrRLaP 
IF (IBCKUPeEQ*9) G8 TB 96 
LOCKUP s1BCKUP+1 
IF (TE8DeEQ60) CALL SKPREC(ITAPEsIBCKUP, IREV!) 
IF (TE8D.EQ.1) CALL SKPFIL(ITAPEs gs REV?) 
ESTABLYSH ARIGIN OF NEW PLAT 
IF (ISW(2)eEQe1) GB TS 95 
KINCRE®ASS (RDEGA) #RADEGHSINCH4+4 0 QQ 
CALL PLATIXINCRE,0°0, 03) 
IF (ISW(6)eE ei) CALL PLOT(#1000201+002999)3 GA TA 94 
PUT RUN AND DATA CARDS FOLLOWING LAST DATA OFCK TO REINITIALIZE PREGRAM, 


G6 TA 79 

SE ple? TAPE AND ENDSOF.JOB LABEL FAR PDP eg BPERATAR 
DATA (IEND(L)eT=104) S'END BF CHART JOB'/ 

XINGRE aABS (ROE G2) #KADEGHSINCH# 4 00 
Plete BArTaM a~ND RIGHT srDEsS OF FYDUCTAL HALF eyNCH SQUARE DRAWN IN GRyDe 
CALL PLAT(XINCREs #005083) 

CALL PLAT (o*5ene0r*2) 

CALL PLOT ( n9 Qe ne5#*9) 

CaLL PLOT(295,00*5s03) 

CALL: SYMBAL (0°O70902004aeTENDs 9000016) 

CALL PLAT (uegsneo2999) 








360. 
3616 
3620 
3636 
3640 
365° 
36660 
4676 
368-6 
3696 
3706 
3716 
372.6 
373-6 
3746 
3756 
3766 
377¢ 
378. 
3796 
380° 
3816 
3826 
383° 
38460 
3256 
386° 
BR7° 
3886 
3896 
390° 
391° 
3926 
393¢ 
3946 
395. 
3966 
397° 
398- 
3996 
490° 
4016 
4026 
43° 
anee 
4956 
4062 
4O7°¢ 
4ORe 
4NAGe 


c 

18 
186 
C 


Cc 
Cc 


8 


85 
8 
C 


C 


¢ 
Cc 


1 


4 
4 


995 
996 


Cc 
999 
998 


&, 
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94 IF(1SWi10)eEGel) CALL MREL(1) 
WRITE(ITI@UTS97) TPCT 
97 FARMAT(' NUMBER PEINTS PLOTTED » 'y18) 
CALL EXIT 
SKIPPING PAINTS, IF EVERY PBINT NOT TO BE PLOTTED, 
85 IF(NSKIP) 18601869185 
5 CALL SKPREC(ITAPEsNSKIP, 
GO TA (99941862 1299992422999) IND 
CANTINUE 
IF (QFMT0EQe13) GO TS 85a 
IF (VFMTeEQ2144) GO TE 88a 
CHECK IF Date 1S WITHIN SPECIFIED INTERVAL 
TFLaG 7S a FLaG 7@ aLlLew gkyPPyNG THE FyRer Call 7a FIND 
Ip we WAve ALREADy BUND THE STARTING Dare 
IF(IFLAGeNEeg) G8 TA Be 
Call FIND¢( ySpOa,ISTMB,ISTYR, ISTHM, JOA, IMB, JYR, UHM, INDK) 
IFCINOKeEQe*t) GO TA 310 
IFLAGe4 
2 CANTINUE 
IF ( TENYReE Geo) a8 Te 854 
Cablk FIND¢( FENDA, TENMO, TENYR, JENHM, JDA, JMB, UVR, UHM, NOK) 
IFC INOKeeOs1) GA Te 998 
1 CANT INUE 
5a CANTINUE 
CHECKING IF DATA WITHIN CHART BOUNDRIES 
NST@PeLCNT 
IF (RT@PeRLAT) 1009100886 
86 IF(RLAT®RBBT) 190788288 
8&8 IF(CRLANGeRLEFT) 100,90,90 
90 =IF(RRIGTSRLONG) 1002100092 
DATA WITHIN RAUNDS 
9> GS TB 35 
DATA SUTSIDE AF BBUNDS 
WRITING BUT Date IF DATA PSYINT IS @UT BF BAUNDS 
Oo INIT#e4 
IF (Isw(9)) 810,310 410 
to. wRITE(T189UT2420) YDAs MO» gyRs JHM 
20 Ba 93109 4X14) 


ale re(tiuts 996) the MBe JYR» 
FARMA ese DATE FASS Brana gl edie ths 


G 
eBREe he MESSAGES IF MISTAKE IN TAPE FILE BR RECARD SPACINGe 
WRITE TIA8UTZ99R) IND 
FERMAT(+ERRAR IN SKPRECs INDeisla) 
Ge TA 91 
97 WRITE(TI8UT»994" IND 


994 FSRMAT(ERRAR IN SKPFIL, INDayy Ip) 


CaLL EXrT 
ENU 





rr, | 
TO SANE A SL RAT BAT AB IE SEENON MR BARETINSES MY? ESA R NOP AAI GER GONE ROEDER PA MEE SS ot - 





e2eur ) Un gheOO ge 2€ qoe00 O¢ 

#3200 F re tb G4e00 2t tT “e00U OT 

£000 9 62000 g¢ * ygl0O € 

ennee eenee ereee -eane aveae wetee eaten 
397 748V1 267 13av7 q3av7 367 = 1384 
X3H X3n X3n 


2 8f400 2 6€n00 4HZ 2 04,00 
2 $5400 2 40400 Q1pA J gg#00 
2 30h00 2 69*00 ByNIX Ny3Lx3 
NYdLxd Nyadx3 AYoaL Nuaix3 
NuaLx3 NUSLK3 elgds > arn00 
84400 2 Egn00 ners D> 2%700 
25900 NY3Lx3 D3udynS NM3Lx3 
g2400 NIYNI NIS Nwalx3 
£4400 2 67400 L9Tuy 2 T9n00 
GE#00 2 29200 99a 2 é4%7%00 
5400 NYaLxd AgL3y > 2700 
$4400 92n00 Sava NYSLXS 
NYSLX3 20900 39y%d Nw3SLXx3 
90%00 H S1t700 2N 
2700 40900 NOMN 
32400 26400 dQiSN 
¥5400 32400 Van 
OE%00 82900 S30Nn 
€e#00 NYSLx3 a0 
20400 NYSLX3 8A3W 
93600 #400 1ay 
S400 99700 YASH 
9400 #9700 vao» 
{$800 é3%00 opt 
£1400 O00 voor 
09400 42400 awsr 
eevee Ph dgil 
0400 Nuasx3 msl 
94400 34700 wis 
2400 72400 st4e1 
"0000 6S%00 al 
g°400 y9n00 xONI 
g#%700 50#00 anerr 
gt #00 #0 #700 ovis! 
t2q00 02400 QWN3l 
33400 00000 ONaI 
4€y00 VE#00 vival 
oooce 94400 Leal 
$2400 89700 y2IVal 
$0*00 Nasdx3 eqluyo 
NuaLxd Na3dx3 vol35 
3 15400 NIgdNI ives 
NuILx 2 47700 29304 
Nugixa 3 4@700 yuo 30 
t 3 &9%00 2 3gs700 Kvivo 
t 3 ge#00 NTy4nt Sao 
t 5 2500 Nuadx3 EAQNY 
NIQINI NTadnI 4 Sav t 


See es 2264004 S@eenn seeeeen aeee eeae eaeee 


Sgsom 307 Sauem 387 3gad AWN Sauer 389 
3G X34 330 34 330 


x 


most 


revert 
ett wt wt wtet ot 
eerecrrrr 


ARV LIPO IAF 
mone ee ere & war 


OOF 


ere terse re we 
tet et et et et ot tet et et etetet «tt ete ctet et ret twin 


CoN SULUUYL UUW oO VULOUUUY 
ee ee Os Oe ee Os Oe me Oe tt Oe he as ee Oe 


t 
t 
t 
t 
t 
t 
t 
0 
t 
5 
t 
t 
J 
J 
t 
t 
t 
5 
t 
t 
t 
t 
t 
t 
QO 
J 
t 


VVUVVUVVUUUY > BWUYY VOUUVUYYULY VOUVYLY LY LUULUU 
Se Pt OF Oe Ot et Oe Ot mt Ot Bt Bt Ot Ot BT OH Bs BH Bt Ot tO Bt OH 


e 
tet tet ot et 
ererare 





ns) Seles 
ere —— 


& 

é : 

é dgise NIS® inTad& wgll6 vsniel® vavagl& “widini® 
i eI QN36 SOD ALlomagnvG Qvssqgd6 33quqnk6e Sede Jatw 60%w 
; BOs Suita Suri "OT34 eOtig zOlias 1Olia arm 
} ABL3A AVGgs 1eeWAS lyis floas D3udxs V14d%S dxsias 
> ABL3a $io7¢d igre 3nI10 734W Innew QADW MS] 
i <alyp SodSy J9145 Volay ONI 4 i1x3 EAONY DASNY 
Nf 

’ scdulno3e SyracesdanS WNadlx3 
j nIS dvan4 $e9 PC EM SgY 


i tG3SN SwYaDGudaNs JISNI yin! 


MONT v9%00 3yoNIx 69%00 

Iver #9400 WHO 49%00 YADX 992700 ew» $9400 vad» #79%00 Avava &9%00 
i G9%u B9%700 8118 t9n00 wee Gp400 war 49900 WP 35400 vor anee? 
xvivg 2#%00 MVLVO @700 Zvivg vS*00 dt 68%00 @ #5%00 v 45%00 
i AA 9200 xx gS700 dwigy S700 One 1s ©S%700 avis @S%00 L9Iu4 $6700 
44374 08800 gia 37700 taag 37700 dwS a%%00 yo1s 37700 yLs gr%00 

LDftuy yv7700 a8ruy 67700 4437] 817200 ig34ty 400 deul 9700 Lowy S*r00 

dOLI 97400 dQly E4400 €9308 e400 29304 b4400 29301 O00 2930% 46400 

WHDen 3&e00 One ty Jexvo av ly 200 viv 8€%00 vavGy vE900 1H? 6€%00 

22 8&%00 a3q1 400 dALOI 9ENOO tH» SE%00 tay 7EHOO dgisy F&%00 

dQ1SN 2900 dIXSN FExOO J114N 0€00 iwah 42700 VidN 32%0C XN Q2n700 

IdWnN Jen90 830N ge700 4N37 ve400 wall 62400 HINIS gen00 va93q 42400 

S30vy 9700 SNAXI81 gexO0 4st 92900 axstl €&700 Wanal 22700 yAN3I bee00 

OWN3SI Oe%00 VOnSi 33700 wH4S1 3700 wats! gt00 gwiSl 93100 vgiSI g@t*00 

SldN VbHOO dVOv1 65700 dv91 #t#00 Oe3I 41700 MN 94%00 ZN §1400 

AN % 500 WHAP €bH00 wage 21700 awof 100 voer OT#00 a1eA 40400 

a%e@x 30%00 4INI QUtOO 32V1d 30700 3wvN 80%00 3dvil vOr00 ZNI 60%00 
9437 80900 NQMN 40800 @yuaZN 90700 1 $000 Dv141 70000 GNI €0#00 
311 4w e¥RO0 4Nell bOx00 NIT 00400 MON 34€00 d13uV &3E00 4ne@t 00000 


t(SquemM TETT) NéWWeD NYE 


43d1 #0000 ON3I O00CO0 
:(Sdu6m 2) S3evIevVA WV304 


ChIOO g9€9 Z&200 *9€&9 
ets00 66 @tsOO “Ee 
egt0O org @,€00 Sug 
gGn00 ecg 90400 Ice 
eve0O ge 47200 Ofte 
b6n00 46 Enx00 96 
43700 0¢ 30900 88 
99700 ag 31#00 18 
egseo0 ey gg€00 & 
BeECO gc See0o0 Us 





“ 








134 





HIGHEST ERR@R SEVERITY! 9 (N® ERRORS) 


GENERATED Cader 
CANSTANTS3 

LA@CAL VARIABLES? 
TEMPS 4 


TATAL PRaGRAM! 


DEC 
WORDS 
®eese 

1324 

44 
7 
3 


1378 


WE xX 

WARDS 
008e2c 
0002ec 
00007 
00003 


00862 


(N@ MEMORY PROTECTION) 


(PLUS BLANK COMMAaN) 
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le 1 FORMaT(1X, 'PREGRAM CANV67 VERSION 17 JAN 74!) 
2e Cc PROGRAM CONV67 
Ze Cc VERSION 47 WAN 74 T@ SPEEC THINGS UP BY CECBDING FEWER ITEMS 
he Cc PROGRAM T8 CONVERT TO 1967 GRAVITY SYSTEM 
Se C AND NEW GEBDETIC REFERENCE 
6e C ORIGINAL VERSIO6N 4 DEC 73 BY LEE GOVE 
Je CIMENSION IBUFIN(32,5002)4 IBUFET( 3225002) 
8e OIMENSION 1A(35) 
Qe WRITE (10801) 
1Qe« IRECese2 
die ITAPEa4 
12¢ vTAPE8@ 
136 KTAPE#108 
14e IFLIF ad Ry 
15-6 wFLIP at 
16¢ KFLIPed 
17° NFLIP Sy 
18.6 ICAT#O 
196 NINSSO 
ede NOUTsO 
ie T6OUTSWsO 
22-6 CEGRA=10745329Ee2 
23¢ KIalsKOne2 
' 24e c 
| ede [e BUFFER LOGIC FAR {/P 
266 C 
: 27e CALL BLUFF IN(ITAPEs Os IBUFIN( LaleTFLIp)s16C0) 
28e 10 CONTINUE 
a | 396 IF(NINeL TSO) G8 TO 90 
: f 306 15 CONTINLE 
i 3ie CALL ICHECK(I TAPES IKEYSNI) 
} 32¢ GO TO (2050230,40) IKEY 
i 336 2C BUTPLY tWAITING FAR I/P'; TEACSC 
¥ 34e G8 Té 418 
; 356 3c OUTPUT 'END OF FILE ON ITAPE'; 2EGDa4 
36° G8 Te 50 
4 376 40 BUTPLY *NUFFER IN ERROR; TE60s1 
; 38° G8 Te 999 
396 50 CONTINUE 
4Qe NIN®CO 
uie NFLIPoIFLIP 
426 IFLIPs3elFLIP 
: 436 IF(LE@DeNEoL) CALL BUFF INC ITAPE,O,IBUFIN( 2,1, TFLIP), 1600) 
44e G 
i 45e C INPUT LOGIC 
: 46e Cc 
470 9¢ CONTINUE 
j 4Be NIN@NINGOL 
496 iF (NI 0eEQ01600) GO Te 95 
506 C GAING 76 EOF PRECESSING 
| Sie NINCKKaNIN@G2 
| 526 IF(NINCKKeGTeNI) GOB TO 999 
| 53° 95 CONTINUE 
540 DECADE (7201001, IBUFIN( ga NENsNFLIP) GND) YREC1,1SORC,KGDA,KGMB, 
55° 1 KGYRyKGHM,OLATs DLONG ELE Vy K9779 GESG, [DEP s FAs BGs TCe ELC 
56¢ C 
57° C EQIT LeGIC 
586 Cc ; 
59-6 G 
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60° C CONVERSI@N 6F 1930 INTERNATI@NAL GRAVITY FORMULA TOA THAT GF 
6le ¢ TKE 1967 INTERNATIONAL GRAVITY FORMULA 
62¢ Cc AND NEW GEBDETIC REFERENCE SYSTEM 
63° ¢C 
64e CALL @86(K977,6B8SGsG0BS,kI) 

656 GOES#GBESe14e0 
666. CALL @86(KS77,88SG,GeBS, ke) 
676 RLATSOLAT#OEGRA 
68s CGaZzeee(4Ze6F(SIN(ABS(RLAT))##2)) 
696 IF (FAeh 729900) FASFA*CG 
706 IF (BGekTeS9C+) Baeagrlg 
71e 4cc CONTINUE 
720 C 
73° C BUTPLUT LOGIC 
74e Cc <s 
75° 30C CONTINUE 
760 NOUT SNOUT 
77° CO 301 [#1932,1 
786 IBUFOT( IT eNIUTs FLIP) eTALFIN( LyNINSNFLIP) 
79° 301 CONTINUE 
80° ENCODE (72210012 IBUFO8T (4 sNOUTs VFLIP) ND) IREC2s IS8RC,KGDAsKGMI, 
Bie 1 KGYR,KGHKM, DLAT,OLONG,ELEV,KS77,08SG, ICEP,FA,BG, TC, IELC 
i B26 308 CONTINUE 
i 83° IF(NOUTeL T7050) GO TE 10 
§ B4e C 
| 85° C BUFFER LOGIC FAR 8/P 
8be C 
| 87° 31c CONTINUE 
i 88 TF(TOUTSWeNEoy) L8UTSW943 GE 76 350 
89° wKEY®ICHECK (UTAPE) 
} 90° G8 76 (32020350s3302340) KEY 
i 91° 32Cc BUTPLT 'WAITING FOR B/P1 : TEBDRC 
926 Ge Te 310 
- | 53° 33C SUTPUTIENC, BF FILE TAPE? ,JEbDey 
e | Sue G6 T8 $99 - 
95° 34c BUTPLUY 'BUFF BUT ERROR! ; IEOC#, 
96° G8 TS 999 
i 97° 35c C8N .NLE 
98e NBUT#O 
996 KFLIPeuFLIP 
i 100+¢ wFLIPs3eJFLIP 
| tole CALL BUFF OUT( TAPE, Os I BUFOT{ Le teKFLIP)»s 1600) 
i 102° G6 Té@ 10 
: 1036 Cc 
104° c ENO 6F 66 
| 1056 C 
{ 106 999 CONTINUE 
107° Sic CONTINUE 
108° JKEYeICKECK (TAPE) 
| 109° GO T8 (9202950,930s940) VUKEY 
110¢ 92c BUTPLY ' WAITING FSR OP! 5 ITEBDs0 
lite G8 Te 910 
112° 93¢ BUTPUT 1BAD vKEY? 3 ITE@0n1 
113° G@ Te 960 
114° 94¢ BUTPLT 'BUFF BUT ERROR! ; [eeC"y 
1156 G6 Te $60 
1166 95¢ CONTINUE 
117° wWOSSNSLT#32 
118. " CALL BLFF BUT (JTAPE,O,IBLFOT(1,1,0FLIP), WS) 


119° 96¢ CONTINLE 





120¢ 
laie 
12e>: 
123¢ 
1246 
128° 
126 
1276 





137 


END FILE JTAPE 
GUTPLY ‘ALL DONE! 


FORMATS 
98 FORMAT(4X%s32A4) 


1001 FORMAT (L4sT4s 312,14 s2F904sF 7020 3p 
END 


Foe, $5,2F693,F 491,12) 
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DEC HEX 

WORDS weROS 
GENERATED C8CE; 415 CO19F 
CONSTANTS 3 ? 00007 
LOCAL VARIABLES! 6477 01940 
TEMPS; 1 00001 

eersvee Seeene 


TATAL PROGRAM: 6900 CLAF4 





ria A rn rem a 
tn ae ee RE RL LR NN RR i RPS 


140 


1° Cc PROGRAM CR2G 
2° Cc VERSION 6F 29 MAR 1973¢ TO AOD [NPUT OF ELEV AND G METER CODES 
3e Cc MODIFICATION BY Ce BOWIN 
he BUTPUT ' ### pGM CREG OF 20 MAR 19731 
4 Se Cc cR2G0010 
66 C * MAY 72 a0 BY Se ABBOT TO CORRECT SBUTPUT LISTING, AND T6 CReGQ020 
7° Cc BUYPUT GSUM DaTA WITH LAT AND LON JN DECIMAL DEGREES CR2G0030 
Be Cc ALS@ T@ CLEAN UP THE COMMENTS ANO S6 6N CR2G0040 
Se C'* M@D 18 JAN 71/ *sgeaBBAT TE CORRECT CR2G0050 
10° Caeeeeenneee REWRITTEN IN A HOPEFUL MANNER BY J. WOLFE JUNE E 1969 CR2EGQ060 
die € . CR2G0070 ° 
12° C # INPUT CR2G0080 
136 Cc CR2G0030 
14. C » y8B INITIALIZATION CR2G0100 
15° c CR2G0110 
16° Cc 1) GRAVITY METER TABLES #* 79 CARDS . CReGQ0120 
17° C 2) SENSE SWITCH CARD ee 8014 (SSW(O) # CC 8Q) CR2G0130 
186 C 3) YyGM(1), IGM(2), DRFTCe, LSRC (2a4%,2X,F1005,15) CR2G0140 
196 ¢ IGM « NUMBER AND/OR MODEL BF GRAVITY METER USED CReG0150 
20° Cc FAR INSTANCE e» LER Gei8 CR2G0160 
4 24° c DRFYC@ we ORIFT CORRECTISN FOR GRAVITY METER e© Figed CR2G0170 
226 Cc LSRC ee SGURCE CADE FOR GSUM BUTPLT DATA CR2G60130 
236 C « NOTE? If ORFTCO s Ove THE ASSUMED VALUE FOR THE GRAVITy METER CR2G0190 
2he Cc ORIFT (ASOFT) WILL BE USED, UNLESS SSW(5) JS 6N CR2GQ200 
25e C » NOTE: IF IGM(1) AND I1GM(2) ARE BETH BLANK, THE GRAVITY METER TYPE CR2GO210 
266 Cc WILL BE SET T@ THE DEFAULT TYPE OF 'LER Gaya! CReGo220 
276 C # NOTES IF LSRC e@ O» THE S@URCE CADE WILL BE SET Te THE DEFAULT CrR2eG0230 
28s c VALUE e» LSRCD CR2eG0240 
296 Cc CReGO0250 
30° C « THESE ARE FOLLOweED By GROUPS OF INDIVIDUAL STATION COUNTER CR2G0260 
31° C READING CARDSe EACH GROUP 1S HEADED BY 3 CARDS: CR2G0270 
, 326 C 4) THE ABSOLUTE GRAVITY VALUE FOR THE REFERENCE STATION en CRaGQ280 
! 336 Cc F3eQsF6e2 == BASEG‘(1)s BASEG(2) CR2G0290 
34 C 2) THe CRUSTAL DENSITY InN GM Che Cu CM re Be Used IN CR2G0300 
35° G THE CALCULATION Of THE BAUGUER ANO@mALy ee Feed ee DENSE CR2G0310 
366 Cc 3) THe COUNTER READING CARD FOR THE REFERENCE STATION CReGQ320 
37° Cc CRAG0330 
38° C 
39° Cc FeRMAy FAR COUNTER READING DATA IS THAT 8F 47 MAY 4966 
40° 
rap é » THESE ARE FOLLOwed py CBUNTER READING CARDS FAR THE REST GF THE CR2G0340 
uee Cc MEASUREMENTS THAT ARE TO Be TIED TO THE REFERENCE MEASUREMENT. CRaGQ350 
i ; 43° Cc CR2G0360 
abe C # A COUNTER READING CARD WITH ALL ZEROS EXCEPT FOR THE CReG60270 
45 Cc YEAR VALUE (CC 9,10) WILL CAUSE THe PGM 7T@ BRANCH T@ READ CR2EG03g0 
46s C NEw CAROS fOR BASEG AND DENSE ANO THE REF STATION CR2G0390 
7 C A CARD WITH ALL ZER@S INCLUDING YEAR WILL GOB TO EOedJ CReGQ400 
4B C De NOT HAVE AN ALL eZERAS CARD FOLLGWING A CARD WITH ONLY THE YEAR, CR2G0410 
49 [~ CR2eG0420 
50° C # SENSE SWITCH SFTIONS CR2EG0430 
51° C . CReGO440 
526 C ssw(y) OFF, FOR PRINTED OUTPUT OF COMPUTED VaLUES FOR EACH STATISN CRaGQ45O 
53° & ONy, FOR SUPPRESSION BF PRINTED BUyPUY CR2eG0460 
She C ssW(a) OFF, TO PUNCH BUTPUT FOR JNPLT TO GRay[TY DESCR, PGM. 1GDS1 CReGQ470 
556 C @N, TB SUPPRESS PUNCHED BUTPUT CRaGQ480 
56. C gssW(y) BFF, T@ BUTPUT GSUM FORMATTED DATA TO 'KTAPE! CReG0490 
57e Cc BN» TS SIJPPRESS GSUM FORMAT BUTPUT CReGOQ500 
58 C SSW(5) OFF, FOR GRAVITY METER ORJFT CORRECTION CRaG0510 
59° ¢ @N, FOR SUPPRESSI6N OF DRIFy CORRECTION . CREG0520 
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60° c CR2G0530 
é1° Cc CR2G0540 
62° C # VARIABLE DEFINITIONS CR2G0550 
63° ¢ CrR2G60560 
64e C LDAYs m@s LYRsLTIME = DATE AND TIME OF READING ewe If LOCAL TIME CR2G0570 
65-6 € 1S USED, KYZ SHOBULD aALS® BE ENTERED. JF GMT, KTZ ALWAYS = 0 CR2G0580 
666 Cc THIS IS THE TIME AS READ FROM THE CBUNTER READING RECORDS, CR2G0590 
676 C  KGDA,KGMe,KGYR»KGHM = DATE ANO TIME OF READING #2 IN GMT (OR CR260600 
68° c LOCAL IF KYZ = 99) CR2G0610 
69e c IDAg,IMOq,TYRisITMy = DATE AND TIME GF REFERENCE STATION CR2G0620 
70° Cc READING (IN GM7 (OR LOCAL IF KTZ © 99)) CR2G0630 
71° C CRN ®@ GRAVITY METER COUNTER READING (IN UNITS) CR2G0640 * 
72° C LEV » ELEVATION GF GRAVITY METER ( IN METERS) CR2G0650 
73. C KTZ ® TWE TIME ZONE CORRECTIONe IF KTZ = 99, IT INDICATES CR?Z 30660 
74e Cc THAT KTZ WAS NOT AVAILABLE* THUS CLS AND HONK «= 00 CREGO670 
75° Cc DATE/TIME MAY BE ENTERED AS GMT, IN WHICH CASE KTZ CReGQ680 
766 C WILL ALWAYS BE EQUAL T6 ZERO. y CR2G0690 
776 (3 IF TIME 6F READING IS IN LOCAL TIME BUT TIME ZONE IS NOT CR2G60700 
786 ¢ KNOWN, KTZ MAY BE ENTERED AS 999 IN WHICH CASE A TIME CR2G0710 
796 Cc Zane CeRRECTIAN WILL NOT BE MADE AND HONK AND CLs WILL CR2G0720 
80« Cc NOT BE CALCULATED» CR2G0730 
Ble C * N8TES LOCAL + KTZ = GMTs 1-6. VALUES WEST OF GREENWICH ARE PLUS. CR2G0740 

x B26 c OESC «= DESCRIPTION &F GRAVITy STATION SITE IN ALPHAeNUM FORMAT cR2G0750 
&3e € CR2G0760 
Bue C OCRFTC® = THE CORRECTION FACTOR FOR ORIFT GF THE GRAVITY METER. CRaGQ770 
85. c IF DRFYCB * 0,0 We aSSUME a ORIFT RATE BF ,003 MGaLs/DAY CR2G0780 
86> fe IF 1Sw(5) EGUALS 4 PROGRAM DBES I'N6Tt Make ORIFT CORRECTION CR260790 
87° C ASOFY ® ASSUMED ORIFT FER GRAVITY METER CR2G0800 
8B- C # NOTES IF THE GRAVITY METER DRIFT IS NEGATIVE, CR2G0810 
89e Cc THE CORRECTION FOR DRIFT [S A POSITIVE NUMBERe CReGO820 
90+ C BASEG = TOTAL FIELD GRAVITY VALUE AT STATION OF REFERENCE CR260830 
91° Cc THE VALUE IS READ IN WITH A FORMAT OF F3¢OsF 602 FROM CR2G0840 
92° € WHICH [BASE FOR BUTPUT AND BASG7 FOR COMPUTATION JIS FORMED. CR2G0850 

93° Cc GBBS7 HAS 9770008 SUBTRACTED FROM IT vee FAR SUTPUTs CONVERT CREG0860 

3 Que Cc T8 13eF6e2 AFTER ADDING 977000+ CR260870 

95° C LSRCD s DEFAULT S8URCE CODE FBR GSUM SUTPUT DATA CR2G0880 
96° C DLAT, DLON = LATJTUDE AND LONGITUDE IN DECIMAL DEGREES CR2G0890 
976 C # NOTE? LOCATIONS NORTH AND EAST ARE CONSIDERED AS POSITIVES CR2G0900 
98° Cc SAUTH AND WEST ARE CONSIDERED NEGATIVEe (THIS JS THE CR2G0910 
99° C EXACT @PPASITE BF THE TIME ZENE CONVENTION) CR2eG0920 

100° C TAPE = UNIT REFe N@e FAR PUNCHED CARD OUTPUT (SSW(2) 6PTIEN) CR260930 
101° C KTAPE = UNIT REFe NO@e FER GSUM FERMAT BUTPUT (SSW(4) BPTIEN) CREGO940 
102° C IPCS » PUNCH CARD SKIP(THIS IS DONE FOR THE GRAVITY DESCRIPTION CR2eG0950 
103° Cc PUNCHED CARD) CR260960 
104. C VALM ® GRAVITY METER CALIBRATION TABLES ARRAY CR260970 
105° Cc THIS IS THE TABLE USED TO 'LO8KeVP! BR CONVERT A GRAVITY METER CR2G0980 
1066« c C8UNTER READING T@ AN EQUIVALENT RELATIVE MILLIGAL VALUE> CReG0990 
107s Cc THE COUNTER READING !S READ wITH A FORMAT OF FBe3 » FOR CR2G1000 
108° Cc INSTANCE 35720256 CR2G1010 
109° ¢ THE WIGHe@ROER TWO DIGITS ew» IN THIS CASE '35!' ee ARE USED CR2G1020 
110° Cc AS THE ARRAY INDEXe THE VALVE STGRED IN VALM(35) IS THE CR261030 
tile Cc EGUIVALENT MILLIGAL VaLUc FOR A COUNTER READING 6F 35000000, CR2@G1040 
112- Cc SO we INTERPBLATE A VALUE BETWEEN VALM(35) AND VALM(36) AND CR2G1050 
113. Cc ARRIVE AT A RELATIVE MILLIGAL VALUE FOR 3572.256 CR2G1060 
114° G CR261070 
1456 Cc CR2G1080 
116° C see eeeeteeeneanenane CrR2eG1090 
117> Cc» CR2G1100 
118° C # INITIALIZATION CR2G61110 
119° Cc «# CR2G1120 
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| 
| 
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120+ C eOntetaevenaesenteune CReG1130 & 
121° Cc CREG1240 
122: DIMENSION KDATE(4) CReGi150,— 
123° DIMENSION Pagal CR2G4160 

: 1246 D@UBLE PRECISION CR2G1170 ; 
: 125° DOUBLE PRECISION PEC) RLAT,RAD, RONG CReg1i180 
: 126° DATA WESTsSBUTH/ IW 1S A CReG1190 
q 1276 c CR2G1200 
128° C » ASSUMED VALUES FOR L&R Gei8 METER CR2G1210 
129° € cReGiz220 
130° DATA IBLNKsILR,1G48/! tethL&R te 'GeyBety, CR2G61230 
131° LSRCD # 006 CR2G1240 ° 
132. ASDFY # e003 creGi250 
133° c CR2G1260 
1346 C * GET DATE 8F RUN . CR2G61270 
135- (- CR2G1280 
1366 CALL TODAY (KDATE) » CReGi290 
1376 Cc CR2G61300 
138° LIN®105 CR2G1310 
139° 18UT#108 CreG1320 
140° JTAPE®106 CR2G1330 
L4ie KTAPE = 2 : CR261340 
1426 ICBUNT#0 CR2G1350 
143+ IPAGE =» 0 CReG1360 
L446 Cc CReG1i370 
145¢ TRECs4 CR2G61380 
1466 IDEP 40 CR2G61390 
1476 RFA #8 0c0 cReG1400 
1486 IREGC =» 0 CREGi410 
1498 TCORR#9909 CR2G4420 
q 150+ LELC#09 
g 151° LGCsOl 
e | 152+ IFFCs3 CR2G1450 
: 153+ IFBC#O CR2G1460 
: 154- ¢ CREG1470 
155° * READ IN GRAVITY METER CALIBRATION TABLE CReG4480 
: 156. € CREGi490 
4 157° be 210 K = 14270 CR2G61500 
458+ READ (1INs5450) ws TABLE CReGi510 
e | 1596 VaALMi J) TABLE CreGi520 
160° 21¢o CONTINUE CR2G61530 
q 161° Cc : CR2G1540 
| 162° C « INITIALIZE SENSE SWITCHES CR2G1550 
; 163" CRaG1560 
a 164° INN s (3SWlep)) CR261570 
e 7 165° Cc CR2G1580 
q 166° C « READ GRAVITY METER TYPEs DRIFT vALWE, ANDO SOURCE CODE yALUE CR261590 
4 167° C » SET UP DRIFT CORRECTIEN VALUE CReG4600 
1686 C IF ValUe FEAD RR@M CARD IS Oo, USE ASOFY UNLESS SSW(5) IS BN. CR2G1610 
1 169° ¢ CR2G61620 
q | 170° READ (JINs5203Q) SOS ever (et RRP TORS LERE STE S ETC CRaG1630 
1716 ed lS ge iki DRFTCA*aSOFT CR2G1640 
172° F(1Sw(5)eEGe1) DRFTCB e060 CR261650 
4 173° IF db igess og ie regen i liad a CR261660 
174° 1 IGmM(t) © IuRs Iom(2) = 1648 CR2G61670 
3 175° IF (SRE eEQ0 gy bLSRC « LSRCD CR2G1680 
176¢ IF(IELCeEGeO) TELC#LELC 
177° IF(IGCeEGeQ) JGC#LGC 
178: ¢ CR2G16390 
: 179° C # WRITE SUT YOB INITIALIZATION VALUES CREG1700 
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180+ c CReG1710 q 

181° WRITE (1O@UTs5200) IPAGEsKDATE CReG61720 3 
182° WRITE (T8UT,5285) 1[GM(1),1GM(2),0RFTCO,LSRC»sIELCs IGC CrR2G61730 
183° 06 294 II = 1270 CR2G1740 
184° WRITE (1OUT25299) IIe VALM(II) C#2614750 
185° 294 C@ONTINUE CR2G1760 
186° C CR2G1770 
187° C FF eee sane tetnesenene CR2G61780 
1886 C «# CR2G61790 
189° C * COMPUTATION OF BBSERVED GRAVITY AND ANOMALIES CP261800 
190° Cc # CR2G1810 
191. C * BEGIN A GROUP BF MEASUREMENTS CR2Gig20 
192° Cc *# CR2G1830 
193° C eHHHe SHORE HEHEHE HOH e CREG1840 
194-6 c CrR2G61850 
195° C # READ BASE GRAVITY CR2G61860 
196° C AND CONVERT INTO UNITS COMPATIBLE WITH BAYH SYSTEMS CR2G64870 
1976 G CR2G1880 
198° 300 CONTINUE CR261890 
199° READ (IINs5320«e END#9109) BASEG(1)eBASEG(2) CR2G1900 
200° READ (J1INs5330e END*91Q) DENSE CR2G1910 
201° BASG7s( (BASEG(1)*9770) #10000) #BASEG(2) CR2G1920 
202° 1B8ASE*BASEG(1) CR2G1930 
203° € CR2G1940 
204 C » READ COUNTER READING CARDS FOR INOIVIOUAL STATIENS CR2G61950 
205° C The FIRST CARD ReaD IS THE ONE FOR THE REFERENCE STATION CRaG1960 
206° C ORIFT 1S COMPUTED FROM DATE GN THIS FIRST CARD. CR261970 
207° c ALL @THER READINGS ARE REFERENCED TO THIS MEASUREMENT, CR264980 
208° C CR2G1990 
209° 06 890 I = 19000 CR2G2000 
210° READ (TINs5405¢ END#910) CR2G2010 
2ile 1 LSTAT,LOAY, Ma, LYR, LY IME, CRN,LAT,RLATM, SORN, LENG, CR2G2020 
2126 LRLOMsWORESELEVsKTZ s (DESC( IK) sIKets3}) CR2G2030 
2136 IPCSs0 CReG2040 
214° CLS#e99 CrR2eG2050 
215-6 HONKS.99 CR2G2060 

2166 CRaCRN CR2G2070 4 
2176 NCR&#CRN CrR2eG2080 
218 C CR2G20390 
219° C # CHECK TB SEE IF HAVE NEW REFERENCE STATION OR CALL EXIT CR2G62100 
2206 Cc (STMT #180 IS EXITs #300 IS START OF NEW GROUP) CrReG2110 
221° ¢ CR2eG2120 
222¢ IF «NCR)50025002 420 CR2G2130 
223° 500 IF(LYR) 41521800415 CReG2140 
224s 415 [81 CR2eG2150 
2256 GeTe 300 CrR2G2160 
226° G CR2G2170 
2276 C # SEARCH TABLES FOR GRAVITY VALUE CORRESPONDING Th CBUNTER READING CR2G24 80 
q 2286 G CR2G2190 
229° 420 TUCRECR#0+01 CReG2200 
230° LCsTUCR CReG2210 
23ie CreLc . CReG2220 
2326 Cl#C{#1006 CR2G62230 
233° C2sCReCl! CREG2240 
} 234+ RELMBVALM(LC) +(Comegy *(VALM(LC%4) © VALM(LC))) CReG2250 
235° Cc CReG2260 
236° C « CALCULATE LAT AND L@N IN RADJANS AND IN DECIMAL DEGREES CR2Ge270 
237° C CrReG2280 
238° ROEG#LAT CReG2290 


2396 DECERLATM#1e666666E 02 CR2G62300 
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240° 
241° 
24ee 
243° 
244e 
245e 
2460 
2476 
248e 
249 
250° 
251° 
252. 
253° 
254e< 
255° 
256° 
2576¢ 
258 
259« 
260° 
2616 
262° 
263° 
2b64e 
265¢ 
2666 
2676 
268+ 
269¢ 
2706 
271e 
272¢ 
273+ 
274s 
275¢ 
2766 
277+ 
278° 
279 
28060 
231° 
282° 
2836 
284-0 
285° 
28660 
287° 
288s 
289 
290° 
291° 
292° 
293° 
2946 
295° 
2966 
2976 
298° 
2996 


ee re 
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RLATsRDEG*DEC 

OLAT #8 RLAT 
RADSRLAT#(1°7453293092) 
RLAT#RAD 


RDEGeLONG 
DEC#RLOM#*{ 666666666602 
RLENG®RDEG + DEC 

DLEN = RLENG 
RLONGeRLONG#107453293 ODe2 


* IF KTZ 1S EQUAL 76 99 MEANS WAVE NOT MADE BR LOOKED UP THE 
TIME ZeNE CORRECTION. THERE THE FelLL@WING CALCULATIANS 
ARE N@T NEEDED BECAUSE we CANN8T CALCULATE THE TIDAL 6R 
HONKLE CORRECTIGNS WITHOUT [T 


OANANMO 


IF (KTZeNE*99) GO TE 646 - 
KGDA®LDAY 
KGM8 eM8 
KGYRsLYR 
KGHMsL TIME 
1020 
G8T8 630 


610 CANTINUE 
KTT#eKTZ 
CALL CHGMT(LDAY,M@,LYRaLTIMEsKTTsKGDA,KGMO,KGYR, KGHM, NTZ) 
CALL M2DY(KGYR,KGMB,KGDA, ID) 
ADAY = KGHM 
ADAY # ADAY / 24000 
ADAY = ADAY # FLOAT (ID) 


N@RTH LAT SR EAST LON IS POSITIVE 
SOUTH LAT OR WEST LON IS NEGATIVE 


anan 


IF (RLAT) 62006192620 
619 F (RLONG) 620,630,620 
620 BNTINVE 


IF (SO8RN»gEQeSBUTH) CATSeRLATs DLAT#eDLart 
IF (WeRECEGeWEST) RLENGseRLENG? OLANSeDLEN 


Cc 
C * CALCULATE CLS AND HANK VALUES 


c 
]HReKGHM/100 
IMINeKGHMeIHR#{00 
CALL TIOAL (RLAT,RLONG,KGYR, 10, 1HR, IMIN,CLS,HONK, DTD) 
RELMaRELM+CLS+HONK 
¢ 


630 CONTINUE 
IF (191) 44024402 650 


C ; 
C # NEW REFERENCE STATION (® FIRST CARD OF GREUP) PRACESSING 


c 
440 REF sRELM 
JDAZ#KGDA 
IMO19KGME6 
1YR1isKGYR 
ITM1#KGHM 
LSTAsLSTAT 


CR2G62310 
CR2G2320 
CR2G2330 
CR2G2340 
cPp2G2350 
CR2G2360 
CR262370 
CR2G2380 
CR262390 
CR2G2400 
CR2G2410 | 
CRaGay420 
CR2G2430 
CREG2440 
CReG2450 
CR2G2460 
CReG2470 
CR2G2480 
CREG2430 
CR2aGe2500 
CReG2510 
CR2G2520 
CR2G2530 
CR2G2540 
CR2eG2550 
CR2G2560 
CReG62570 
CR2G62580 
CR2G2590 
CR2G62600 
CR2EG2610 
CR2G2620 
CReG2630 
CR2EG2640 
CR2G2650 
CR2G2660 
CR2G2670 
CR2G2680 
CreG2690 
CRaG3700 
CReGE710 
CReG2720 
CR2G2730 
CR2G2740 
CR2G2750 
CR2G2760 
CR2G2770 
CcR2G2780 
CreG2790 
CR2G2800 
CR2eG2810 
CREG2820 
CRaG 2830 
CR2EG2840 
CRaG2850 
CReG2R60 
CR2eG2870 
CReG2R80 
CR2EG2890 
CR2EG2900 
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300° IPCSs4 CR2G2910 
3916 LCNT = 0 creGe920 : 
302¢ IPAGE = 1 CR2G2930 
303° C CR2G2940 4 
304° C * CALCULATE DRIFT Cr2G62950 
305¢ ¢€ CR2G62960 : 
306° 450 DIFFRsRELMeREF CR2G62970 
307+ CALL CDOATE( IDA, IMOg,1YRys37TMysKGDA,KGMO,KGYR»KGHM, TIMD) CrReaG62980 
308° ORIFTs(TIMD/2400) #ORFTCO CR2G2990 
309° GO@BS7sBASG74+DIFFReDRIFT CR2G3000 
310° TCOUNT#ICAUNT +4 CR2G3010 
ile Cc CR2G3020 
312° C « PUT G8BS7 + 977000« INT SUTPUT UNITS CR2G3030 ; 
313° c CR2G3040 ri 
314. IC6N*G6BS7/1000e CR2G3050 1 
315-6 TEMP=]CAN#1000 CR2G3060 
316° G@BSsGeeas7*TEMp 4 CR2G3070 
3176 1G#1CON+977 CR2G3080 
3186 Cc CR2G3090 
319° C » CA8MPUTE FREE*AIR AND BeUGUER ANOMALIES CR2G63100 
320° ¢ CR263110 
3216 X22e8RAD : CrR2G3120 
322° C2eRsCéS(x) CR2G3130 
323° FELEVa( (003085549 eQ0022*C2R) HELEV) #( ( (ELEV#Q0001) **2) *0*072) CR2G3140 
324. RALsRAD CR2G3150 
325° GFREE «G8BS7"GINTF(RA1) +FELEV 
326° BELEV #9204185 *DENSE*ELEV CR2G3170 
327. GBOUGSGFREE-BELEV CR2G3180 
328 € CR2G3190 
3296 C * CHECK T6 SEE IF LAT AND LON 8 CO CR2G63200 
330° c 6R IF ELEV = 0 CrR2G3210 
331. Cc IF THEY 08 SET GFREE AND GBOUG EQUAL Te 999-0 CREG3220 
332° Cc CR2G3230 
333° IF (LAT) 2050s 204922050 CR2G3240 
3346 2049 IF(RLATM) 205092205142050 CR2G3250 
3356 2051 IF(L@NG) 2050,2052,2050 CR2G3260 
336¢ 2052 IF(RLOé) 205092205322050 CR2G63270 
337° ¢ CR2G63280 
338° 2050 «CIF (ELEV) 20542205322054 CR263290 
339° 2053 GFREE#999¢0 CR2EG3300 
340° GBBUGs999e0 CR2G3310 
341° 2054 CONTINUE CR2G3320 
342. C CR2G3330 
343° NSTATN®SLSTAT CREG3340 
B44e Cc CR2G3350 
345° c CR2G3360 
34660 C # COMPUTE GSUM SORT KEY FIELDS CR2G63370 
3476 [= CR2G3380 
348° PLAT « DLAT + S900 CR2G3390 
349° LTKEY = PLAT CR2G3400 
356» PLEN = DLON + 180+ CR2G3410 
351° LGKEY » PLEN . CR2G3420 
352° IAKEY # 0 CR2G3430 
353° Cc CR2G3440 
3546 C steve eeeeeweneneenee CR2G3450 
355° Cc * CR2G63460 
356° C # BUTPUT THE DESIRED INFARMATION CR2G3470 
357° Cc * CR2G3480 
3586 C see ee eee eeeneeeenene CR2G34390 
359° C CR2G3500 
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360° C * PUNCH BUTPUT FAR INPUT TE STATION DESCRIPTION PROGRAM CReG3510 
361° Cc IPCS PREVENTS US FROM PUNCHING THE REFERENCE STATION WHEN CR2G3520 
362° ¢ IT IS THE FIRST CARD QUT CR2G63530 
363° Cc CR2eG3540 
364¢ IF derciad | G8Té6 835 CR2AG3550 
365¢ IF (1SW(2)) 835,825,835 CR2G3580 

7 366¢ 825 WRITE (JTAPE,5825) LYRsMSsLDAYsLTIMEZLSTATs IGM(4 aI Gh(2)s CR2G3570 

5 367° 1 1G,G8BSsLSTA, IBASE» BASEG( 2) » RLATs SORN, RLONG, WORE SELEY CRaG3580 
368° 835 CONTINUE CR2G3590 
369° Cc" CR2EG3600 
370° C * LISTING OF CALCULATED VALVES CREG3610 
371° ( CR2G3620 * 

} 372° IF (TSw(1)) 86928512869 CREG3630 
373° 851 IF (LENT) 85228524860 CR2AG3640 
374° c . CR2G3650 
375¢ Cc PRINT PAGE HEADING CR2G3660 
376° c - CR2G3670 
377 852 WRITE (18uTs5001) CR2G3680 
378 IF (IPAGE = 4) 85378532854 CR2EG3690 
379° 853 WRITE (18UT.5853) CR2G3700 
380° 854 CONTINUE CR2G63710 
381° WRITE (18UTs5200) IPAGEsKDATE : CR2G3720 
382° WRITE (I8UT,5855) LSTA, IDAq,IMOq,1YRy,1TM4s1GM(4)s1GM(2),LSRC CR2G63730 
383° WRITE (10UT,5856) 1BASE,BASEG(2), REF, DENSE, ORFTCA CR2G3740 
384° WRITE (18UTs5858) CR2G3750 
3R5° {PAGE » IPAGE + 1 CR2G3760 
386° LCNT = 39 CR2G3770 
3876 Cc CR2G3780 
388° 860 WRITE (18UTs5860) CRAG3790 
389° % LSTATsLOAY,MO,LYR,LTIMEsKTZea LAT» RLATM, SORNZCR, CReG3800 
390° 2 GFREEsCLS ,DIFFR,DESC CR2G63810 
391° WRITE (10UTs5862) CREG3820 | 
392° 4 1G,G68S,KGDA, KGME, KGYR, KGHM, ELEV, LONG, RLOM, WERE, RELM, CR2G63830 
393° 2 GBSYG»HONK»ORIFTsTIMD,ADAY CR2G3840 |. 
394° LONT © LCNT e 3 CR2G3850 © 
395-6 869 CONTINUE CR2G3860 d 
396° c CR2G3870 | - 
3976 C * BUTPUT AT GSUM FORMAT TO KTAPE CRaG3880 
396 C FORMAT FA@RWARD C@0E = 3 CR2G3g90 © 
399° G CR2G3900 
4OO* IF (ISW(4)) 88928712889 CRAG3910 | 
4O1* 871 WRITE (KTAPEs5871) IRECsLSRC,KGDAsKGMBsKGYRsKGHMsOLATsDLENZELEVs CR2G3920 © 
&oze 4  1G,G88S,10EP,GFREE, GBEUG, TCORR, ELC, IGC,RFA, IREGC, CReG3930 
4O3° 2 TFFCeCLSsHONK, CRN, (OESC(IT)s 1184016) sNSTATNs IFBC, CReG3940 
4O4s 3. LTKEYsGKEY, LAKEY CR2G3950 
405° 889 CONTINUE CR2G3960 
406° ¢ CReG3970 
4O7® C * STMT, #899 IS THE END OF THE READ Deel66P CRaG3980 © 
408+ (« CReG3930 
409° 890 CONTINUE CR2G4000 | 
4108 Cc CReG4O10 
ile C Meee teen ene nesetans : CReG4oe0) | 

126 C+ CR2G4030 
4136 C » END @F yea CREG4O40 | = 

414 Cc * CReG4OS0 | 
4156 C thane ee enneeeenenone CREG4060 
4166 (- CR2G4070 | | 
4176 180 C8NTINUE CREG40R0 © 
4188 181 CONTINUE CREG4090 » 


419° 9190 CONTINUE CReG4100 





EN a tet vt nn CL ESE CE et tet 





Sine Stee 


nh Be 


428. WRITE (10UT,5200) IPAGE,KDATE CR2G64190 
4296 sTep CR2G4200 
CR2G4210 
AHOHHP OHH HHOHO HEED CREG4220 © 
* CR2G64230 
* FBRMATS CR2G4240 
* CR2G64250 
4356 Pe eeT eT eS TT iii r irs Ty CR2G4260 
43660 a CR2G64270 
4376 5001 FeRMAT (141) CR2G4280 
4386 5150 FORMAT (J2sF7e2) CR2G4290 
4396 5200 FORMAT (T2!PAGEtl4s,T3S'DATE OF RUN © 14A4) CR2G4300 
440° 5230 FORMAT (2A492X%sF1005015,15s15) 
4ate 5285 FeRMAT (' GeMETER © '2A4! DRFTCO's 1F 4Oe5,5X1SBURCE CODE #114 
44260 4 ' ELEV CeDE #'14,5X'G METER CODE #'14) 
4430 52990 FORMAT (' TABLES '5(l2etstsF7e2)) CR2G4330 
444e 5320 FORMAT (F3*0sF6e2) CR2G4340 
4456 5330 FORMAT (F4e2) CR2G64350 
4460 5405 FORMAT (J4s3losT4sF Besa l2eFSeesAyslgeF Sees Ager 70491303141) CR2G64360 
447° 5825 FORMAT( 31 as 404 Xo las edge 130 Fens yXelaslasF6easa(FIe6sAy )eF704)  CREG4370 
44Be 5855 FeRMay (/' REFERENCE STATION #'[5,10X'READING BF '3¢7e'/') 14, CR264380 
4490 1 5X, 'MEYER = '2A4,5X'SEURCE CODE #!J4) CR2EG4390 
4506 5853 FORMAT (T2'#ee NEW REFERENCE STATION wants CR2G4400 


430° 
431° 
4326 
433¢ 
43h. 
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4546 1 TZ eRe F OE SE HEHEHE HEHEHEEHE HEHE! ) CR2EG4410 
4526 5856 FORMAT (' REFERENCE GRAVITY # '13,F60e2,7X*REL MGAL & 'F1ile3, CR2G4420 
SXIDENSE etsFSe2s9XtORFTCE stF6e4//) CR2G64430 
FORMAT (t STATIONI1OXIDATE {OXI TZ OX LATITUDE rexrCTR RDNG CREG4440 
4X'GFREE'3XICLS!' SX'GOIFFt2x'DESCRIPTION'/ CR2G4450 
4566 ' BBS GRAVISXtGmMT DATENSXIELEVISXILENGITUDE'exX'REL MGALt CREG4460 
4576 4X'GBRUG'2XTHENKI2X'ACUM DFTI7XITOLFF P2X'DAeBFeYRI/) CR264470 
458e 5869 FORMAT (* tal hs7xXe3( 1297!) 14s 6Xs 130BXe 1391 X9F S020 Als 3Xe CR2EG4480 
4596 : 
4600 5862 


453¢ 
4540 5858 
455 . 


wre 


2IF79202X) oF uyepsyXsF9e3e2Xs31A1) 
FORMAT (! "ep [B,F6e2,2XpS(LON/') [4s 2XaF7 ol seXol Sei XsFSece Als 3X CR2G64500 
461° 2(F7e2seX Fuels eKaF SecvexsFlOe2a2XaF Beds CR2G4510 
4626 7) CR2G64520 
463° 587, FORMAT (Ile 4se3]2eT402F9e4,F7 02, CR2G64530 
464e 1 T3sF6e201SsaF Gels F oop eclosFoetelio CR2EG4540 
465° 2 los2Fuo2eF7e2s{6Alelasles CR2G4550 
4666 3 213et2) CREG4560 
4676 5950 FA@RMaT(' WROTE END BF FYLE!') CR2G4570 
46860 C CR2EG4580 
469° END CR2G4590 


re - 
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420° WRITE (J6UTs5001) CR2G4110 
421° BUTPUT ICBUNT CR2G4120 

; 422° IF(TSW(4)eGTeQ) GB TE 24 CR2G4130 ; 

: 4236 ENOFILE KTAPE CR2G4140 

: 42he 5950 WRITE (18UT,5950) CR2G4150 14 

4256 REWIND KTAPE CREG4160 i 

7 42660 24 CONTINUE CR2G4170 
4276 IPAGE = © CR2G4180 
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i 1. Cc PROGRAM CR2G67 
2° Cc @RIGINAL VERSION 2 OCT 75 
3° € MOD BF CReG Te CALCULATE IGSN 67 VALUES 
he c VERSION OF 20 MAR 1973, TO ADD INPUyY OF ELEV AND G METER CODES re 
5 Cc MODIFICATION BY Co BOWIN 
be @UTPUT ' #** PGM CReG OF 20 MAR 3973! 
7e C CR2G0010 
Be C » MAY 72 ew BY Se apBeT TO CORRECT BUTPUT LISTINGs AND Te CReG0020 
9 G: @UTPUT GSUM DATA WITH LaT AND LON IN DECIMAL DEGREES CR2G9030 
10° (s. ALse T@ CLEAN UP THE COMMENTS AND SB @6N CRaG9040 
13° C * MAD 18 JAN 737 #SeABBOT TS CORRECT CR2G60050 
a C#eeeeeeeee REWRITTEN IN A HOPEFUL MANNER BY J, WOLFE JUNE E 1969 CReG0060 
13° Cc CR2G0070 
14e C * INPUT CR2G0080 
15¢ (e CR2G0090 
; 166 C » y8B INITIALIZATION é CR260100 
17° Cc CR2G0110 
186 C 4) GRAVITY METER TABLES ee 709 CARDS CReG0120 
19° C 2) SENSE SWITCH CARD e= 8011 (SSW(0) = CC 80) CR2G0130 
' 20° C 3) IGM¢1)s IGM(2). DRFTCB, LSRC (2A4s2X0F1005s15) CR2G0140 
: 2te Cc 1GM ee NUMBER AND/OR MODEL OF GRAVITY METER USED CReG0150 
226 € FOR INSTANCE »* L&R Gel8 CR2G0160 
i a DRFTC@ e= DRIFT CORRECTION FOR GRAVITY METER @» F1005 CRoG01 70 
| 24e C LSRC © SBURCE CODE FER GSUM BUTPUT DATA CR2G60180 
25¢ C » NOTE} IF DRFTCO « Ovo, THE ASSUMED VALUE FOR THE GRAVITY METER CReGQ190 
[| Zbe Cc DRIFT (ASOFT) WILL Be VSED, UNLESS SSW(5) IS 6N CReG0200 
' 27e C » NOTE: Ip IamMei) AND Iqm(2) ARE BOTH BLANK, THE GRAVITy METER TypE CR2G0210 
: ee WILL BE SET TO THE DEFAULT TYPE OF tLaR Geyer CRaGo220 
; 296 C # NOTE! IF LSRC = 9, THe SOURCE CODE WILL Be SET T8 THE DEFAULT CRaGQ230 
i 30° Cc VALUE == LSRCD CReG0240 
i aie cReG0250 
32° * THESE aRe FelLLewWeD BY GREUPS BF INDIVyDVAL STATION COUNTER CRaG9260 
336 C READING CARDS. €aCH GROUP IS HEADED BY 3 CARDS; CR2G0270 
| 34° = ¢ = 4) THE ABSOLUTE GRAVITY VALUE FOR THE REFERENCE STATION e= cR2G0280 
' 35° c F3eQeF 602 = BASEG(1)»s BASEG(2) CRaGo290 
36° C 2) THe CRUSTAL DENSITY IN GM PER CU CM 16 Be USED IN CRaGQ300 
' 376 c THe CaLCULaTIGN @F THe BEUGUER ANOMALY we F4e2 om DENSE CR2G0310 
i 38° C 3) THE COUNTER READING CARD FOR THE REFERENCE STATION CR2G0320 
396 Cc CR2G0330 
| 40° C 
aie c FORMAT F@R COUNTER READING DATA IS THAT BF 47 MAY 1966 
i 42° 
i 43° € * THESE ARE Fe@lLlLe@WeD BY COUNTER READING CARDS FAR THe Resy OF THE CRaGQ340 
i 44.6 c MEASUREMENTS THAT ARE TO BE TIED TB THe REFERENCE MEASUREMENT, CR2GO350 
' 45 C CR2G0360 
; 46 C * A CBUNTER READING CARD WITH ALL ZEROS EXCEPT FOR THE CR3G0370 
| 47 Cc YEAR VALUE (CC 9010) WiLL, CAUSE THE PGM Te BRANCH Te READ CR2G0380 
48 C NeW CARDS FOR BASEG AND DENSE AND THe REF STATION CRAG0390 
1 49 C a CARD WITH ALL ZeER@S INCLUDING YEAR WILL GO TA E.Oed CRaGQuQ0 
i 506 C De Net HAVE AN abbeZeRas CaRD FellLewinG a CaRD WitH ONLY THe YEAR, CR2G0410 
i 51° C . cR2eG0420 
. | 52° C * SENSE SWITCH OPTIONS CR2G0430 
i 536 C CR2G0440 
| 54> C SSwii) Ores FOR PRINTED eyrrur Or COMPUTED vALUES FBR EACH STATIBN CReGO450 
i 55° Cc @N, FOR SUPPRESSION BF PRINTED BUTPUT CReG0460 
| 56° C gshkla) aFF, Te PUNCH @UTPUT FAR INPUT 76 GRAVITY DesCR, PGM. 'GDst CRaGoQ470 
576 C ON» re gureR ss PUNCHED Lb Hh CR2G0480 
58 C SSW(4) OFF, TE OUTPUT GSUM FORMATTED DATA TO 1KTAPE! CR2G0490 
596 Cc @N, T9 SUPPRESS GSUM FORMAT @UTPUT CReG0500 








60°¢ 
éle 
62° 
63° 
64e 
65¢ 
66° 
67. 
68e 
69¢ 
70° 
Fie 
72° 
73° 
THe 
75° 
76e 
77.6 
78 
796 
80¢ 
Bie 
82¢ 
83° 
84. 
85¢ 
860 
87 
88> 
89e¢ 
906 
Ste 
926 
93e6< 
She 
95° 
96° 
976 
98-6 
99° 
100° 
1Ole 
102° 
103° 
104° 
105° 
106° 
107° 
108- 
109° 
110° 
lite 
112° 
113. 
114° 
115° 
1166 
117° 
1186 
119° 
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SSW(S) BFF, FOR GRAVITY METER DRIFT CORRECTION 
ON, FAR SUPPRESSION OF ORIFT CERRECTION 


VARIABLE DEFINITIGNS 


LDAY, M@, LYR,LTI]ME = DATE AND TIME OF READING ewe JF LOCAL TIME 
1S USED, Kr2 SHOULD aLsS@ Be ENTERED, IF GMy, KTZ ALWAYS = O 
THIS IS THE TIME AS READ FROM THE COUNTER READING RECORDS, 
KGDA,KGMQ,KGYR,KGHM » DATE AND TIME OF READING ewe IN GMT (OR 
LOCAL IF KrZ = 99) 
IDAteIMegielYRisITM1 = DATE AND TIME @F REFERENCE STATIAN 
READING (IN GMT (@R LOCAL IF KTZ e# 99)) 
CRN ® GRAVITY METER COUNTER READING CIN UNITS) 
ELEY «© ELEVATION @F GRAVITY METER (_IN METERS) 
KTZ «= THE TIME ZONE CORRECTIBNe IF KkTZ s 99» IT INDICATES 
THAT KTZ WAS NOT AVAILABLEe THUS CLS AND HONK = O00 
DATE/TIME MAY BE ENTERED AS GMT, IN WHICH CASE KZ 
WILL ALWAYS pE EQUAL TE ZERB> 
IF TIME 8F READING IS IN LOCAL TIME BUT TIME ZENE IS NOT 
KNOWN, KTZ MAY BE ENTERED AS 994 IN WHICH CASE A TIME 
ZeNeE CeaRRECTION WILL NOT BE MADE AND HONK AND CLs WILL 
N@T BE CALCULATED. 
NOTE; LOCAL + KTZ ® GMT? Ie&~ VALUES WEST BF GREENWICH ARE PLUS. 
Des) ® DESCRIPTION OF GRAVITY STATION SITE IN ALPHAeNUM FORMAT 


ORFTC@ = THE CBRRECTIEN FACT@R FOR DRIFY BF YHE GRAVITY METER. 
If ORFTCE® = Occ WE gee une A DRIFT RATE 8F e003 MGALS/DAY 
IF 1SW(5) EGUALS 4 PROGRAM DBES INET! MaKe ORIFT CORRECTION 
ASOFT » ASSUMED ORIFT FER GRAVITY METER 
NOTES IF THE GRAVITY METER DRIFT IS NEGATIVE, 
THE CORRECTION FBR ORI¢T IS A PBSITIVE NUMBER. 
BASEG = TSTAL FIELD GRAVITY VALUE AT STATION OF REFERENCE 
THE VALUE IS READ IN WITH A FORMAT OF F3.0,F 6.2 FROM 
WRICH IBASE FER BUTPUT AND BASG7 FBR COMPUTATION IS FORMED. 
GeBS7 HAS 977000« SUBTRACTED FREM IT eee FAR BUTPUTs CENVERT 
T® 330F6e2 AFTER ADDING 977000" 
LSRCD = DEFAULT S8URCE CB8DE FAR GSUM @UTPUT DATA 
DLAT, OLAN = LATITUDE ANO LONGITUDE IN DECIMAL DEGREES 
NOTE: LOCATIONS NBRTH AND EAST ARE CONSIDERED AS POSITIVE: 
SBUTH AND wEeST ARE CONSIDERED NEGATIVEs (THIS IS THE 
EXACT OPPOSITE GF THE TIME ZONE CONVENTIOBN) 
UTAPE = UNIT REFes N@e FOR PUNCHED CARD BUTPUT (SSW(2) 8PT{EN) 
KTAPE s UNIT REFo N@e FAR GSUM FARMAT BYTPUT (SSW(4#) BPTIBN) 
IPCS = PUNCH CARD SKIP(THKIS 1S DONE FOR THE GRAVITY DESCRIPTIBN 
PUNCHED CARD) 
VALM « GRAVITY METER CALIBRATION TABLES ARRAY 
THIS IS THE TABLE USED TO tL6@KeUP! OR CANVERT A GRAVITY METER 
COUNTER READING T@ AN EQUIVALENT RELATIVE MILLIGAL VALUE. 
THE CA@UNTER READING IS READ WITH A FORMAT OF FRe3 » FOR 
INSTANCE 35720256 
THE HIGHe@RDER Twe DIGITS «e IN THIS CASE '35+ ee ARE USED 
AS THE ARRAY INDEXe THE VALVE STA@RED IN VALM(35) IS THE 
EQUIVALENT MILLIGAL VALUE F@R A COUNTER READING 8F 3500-000, 
SO wE INTERPBLATE A VALUE BETWEEN VALm(35) AND VALM(36) AND 
ARRIVE AT A RELATIVE MILLIGAL VALUE FOR 3572-256 


SHHSSH HEHE HHEHHH HEED 








CR2G0510 
CR2EG0520 
CR2G0530 
CR2G0540 
CR2G0550 
CR2G0560 
CRaGQ570 
CREG0580 
CReG0590 
CRaG0Q600 
CR2G60610 


CR2G0620 © 


CR260630 
CReG9640 
CR2G0650 
CR2G0660 
CREG0670 
CR2G0680 
CR2G0690 
CR2G0700 
CR2G0710 
CR2G0720 
CR2G0730 
CRaGo740 
CR2G0750 
CR2G0760 
CR2G0770 
CR2G0780 
CReGC7390 
CReG0800 
CReGO8i0 
cR2G0820 
CRaG0830 
CREGOR4C 
CR2G0850 
CR2G0860 
CR2EG0870 
CR2G0880 
CR2G0890 
CR2G0900 
CR2G0910 
CR2G0920 
CR2G0330 
CR2EG0940 
CR2G0950 
CR2eG0960 
CR260970 
CR2eG0980 
CR2EG0990 
CR2G1000 
CR2G61010 
CR2G1020 
CR261030 
CR2Gi040 
CR2G1050 
CR2eG1060 
CR2G1070 
CREG1080 
CReG1090 
CR2G1100 
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4 
152 4 
120+ C # INITIALIZATION CR2G61110 2 
121° Cc * CR2G1120 
122° C seeeetesenareenteane CR2G61130 | 
123° Cc CR2G61140 é 
1246 DIMENSI@N KDATE(4) CR261150 j 
125° DIMENSION VALM(70)sBASEG(2),DESC(31)41GM(2) CReGi1600 
1266 DOUBLE PRECISION DTO CR2G61170 : 
127. DOUBLE PRECISION DECsRLATsRADsRLONG CREG1180 
128. DATA WESTsSBUTH/IW =tytS— t/ CR261190 
i 1296 Cc: CR261200 
' 130° C * ASSUMED VALUES FBR LER Geis METER CR2G1210 
j 131¢ € CR2G61220 
H 132° DATA IBLNKsILR,1Gy8/! ‘a 'tLER ','1GuyQt/ CReG4230 
i 133. QUTPUT ‘PROGRAM CR2G67 VERSION 2 BCT 75! 
i 1340 LSRCD s 006 CReGi240 
135° ASDFT ® #003 cReG1250 
H 136+ =C : CR261260 
437° C # GET DATE 6F RUN CR2eG614270 
138+ ¢ CR2G1280 
139° CALL TODAY (KDATE) CR2G1290 
140° Cc : CR2G1300 
141° TIN#®105 CR2G61310 
1426 10UT#108 CR2G61320 
1436 JTAPE#106 CR2G1330 
t44e KTAPE = 2 CR2G61340 
145+ ICBUNT SO CR2G1350 
1466 IPAGE # 0 CR2G61360 
147 Cc CR2G1370 
148- IRECe4 CR2G1380 
149+ IDEP #8 Oo CR2G61390 
150+ RFA # 000 CR2G1400 
1546 IREGC = 0 CR2G1410 
1526 TCORR#9909 CR2G61420 
4536 LELCso9 
454s LGC#0O1 
155-6 IFFCs3 CR2EG1450 
\566 IFBCsQ CR2EG1460 
457° é CR2G1470 
158° C # REAO IN GRAVITY METER CALIBRATION TABLE CRaG44RO 
159+ (= CR2G1490 
160° 08 #49 K s 1970 CREG1500 
164° READ (TINS5450) Je TABLE CRaG1510 
1626 VALM(J)® TABLE creci520 
163° 210 CONTINUE CR2G1530 
1646 C CR2G1540 
165° C * INITIALIZE SENSE SWITCHES CRaG4550 
1666 Cc CR2G1560 
1676 INN & ¢3SW(02)) CR2G1570 
468° ( CR2G1580 
1696 C # READ GRAVITY METER TYPE, dy VALUE, AND S8URCE CODE VALUE CRaG4599 
170. C * Ser UP ORIFT CORRECTION VALU CREG1600 
1716 C IF VARYE FEAD RRO CARD IS o YySE ASDFT UNLESS SSwitS) IS ONe cR2G1610 
i 172¢ Cc CR2G1620 
173° READ (TINsSa39) 16M(4),1GM(2) ,ORFTCO,LSRC,IELC,IGC CR3G4630 
1746 HLL a al) hae DRF 7COSASOFT CREG1640 
175+ IF (1SW(5)eEGe1) ORFTCE#060 CR2G1650 
: 176° IF (1GM(4) e&Qe TBLNKeANDe ILGM(2) eEQe I BLNK) CREG1i660 
177° 1 IGM(4) § JLRs IGM(2) = 1648 CREG3670 
; 178+ IF (LSRC eEGe 0) LgRC = USRCD CREG1680 


179° TF(TELCsEQeO) TELCeLELC 
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180° IF(IGCeEGeo) 3GC*LGC 
18t¢ Cc CrR261690 
% 182° C * wRITE OUT JAB INITIALIZATION VALUES CR2G61700 
7 183¢ Cc CR2G1710 
3 1846 WRITE (10UTs5200) IPAGEsKDATE CR2G1720 
4 185° WRITE (18UT,5085) 1GM(4)21GM(2)sDRFTCOsLSRC»IELCs IGC CR264730 
q 186° oe 294 II = 1470 CREG1740 
187° WRITE (1OUTsS290) TLeVALM(IT) CR251750 
188° 294 CONTINUE CREG1760 
189° Cc CR2G1770 
190¢ C Fee HeHesenetHeeeennes Cr261780 
k 191° C + CR2G61790 
192+ C * COMPUTATIGN OF OBSERVED GRAVITY AND AN@MALIES CR2eG4800 
193° Cc «# CR2G1810 
19%6e C # BEGIN A GROUP BF MEASUREMENTS CR261820 
195° C # ; CR2G61830 
1966 C eee ete eeneneehetene n CR2G1840 
j 197° Cc CR2G1850 
198° C * READ BASE GRAVITY CR2G1860 
199° C  aND CONVERT INT@ UNITS COMPATIBLE WITH BETH SYSTEMS CR2G4870 
200 Cc CR2G1R80 
201° 300 CANTINUE CR2G1890 
202° READ (TINS532Q94 ENDe91Q) BASEG(1)sBASEG(2) CR2G61900 
203° READ (11IN»53300 syeeeee: DENSE CReG1910 
204. BASG7® ((BASEG(1) #9770) #10000) #BASEG(2) CReatseo 
205+ IBASE sBASEG (1) CR2G1930 
206° C CR2G1940 
207° C * READ COUNTER READING CARDS FOR INO[VIOUAL STATIONS CR2G1950 
208 C he FIRST CARD ReaD IS THe BNE FOR THE REFERENCE STATION CR2G1960 
209° C ORIFT 1S COMPUTED FROM DATE ON THIS FIRST CARD. CR2G1970 
210° C all OTHER READINGS ARE REFERENCED TO THIS MEASUREMENT, CR2G1980 
2tie Cc CR2G1990 
212° De 899 I = 159000 CR2G2000 
2136 READ (1INs5405, END#910) CR2G2010 
2146 1 LSTATsLDAYsMO,LYRaLTIMEsCRN»LAT*RLATM,SORNs LENG, CR2eG2020 
215° ARLOMsWOREVELEV,KTZ » (OESC(IK)sIKels34) CR2G2030 
2160 IPCS#0 CR2G2040 
217° CLS#099 CR2G2050 
2186 KONKs 99 CR2G2060 
219° CReCRN CR2G2070 
220° NCRSCRN CR2G2080 
2216 (= CR2G2090 
2226 C * CHECK T@ SEE IF HAVE NEW REFERENCE STATION OR CALL EXIT CR2G2100 
223° C (STMT #180 IS EXITs #300 IS START 6F NEW GREUP) CR2G2110 
2246 € cR2G2120 
2256 IF (NCR)500# 500s 420 CR2G2130 
2266 500 IF (LYR)415#1800415 CR2G2140 
227° 415 184 CR2G2150 
228+ Ge87Te8 300 CR2G2160 
229° ¢ cRaG2170 
230° C * SEARCH TABLES FOR GRAVITY VALUE CORRESPONDING TE COUNTER READING CRaG2180 
231° c : CRaG2190 
232° 420 TUCRSCR#O+01 CRaG2200 
2336 LCsTUCR CReG2210 
234+ ClaLc CRaG2220 
2356 CIsCI#100¢ CReG2230 
2366 C2eCReC] CReG2240 
237° RELMsVALM(LC) 4(Ca#ed1#(VALM(LC4t) @VALM(LC))) CReG2250 
238° c CReG2260 


239° C * CALCULATE LAT AND L@N IN RADIANS AND IN DECIMAL DEGREES CR2eG2270 
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240° 
24ie 
2420 
243° 
244e 
2456 
2460 
24760 
248s 
2496 
250° 
25i°¢ 
2526 
253° 
254e« 
255° 
256° 
257° 
258+ 
259° 
260° 
261° 
262° 
263° 
264° 
265-6 
266¢ 
2676 
268s 
269-6 
270° 
2716 
272° 
273° 
2740 
275° 
276° 
277° 
278+ 
279¢ 
280° 
231° 

Bee 

83° 
2840 
285e 
286° 
287° 
2886 
289° 
290° 
aSie 
292° 
293° 
2946 
295° 
296° 
297° 
298- 
2996 


ee i che ‘ 


ROEG*LAT 
DECSRLATM@12666666E e2 
RLATsRDEGs0EC 

OLAT § RLAT 
RAD®RLAT#( 107453693002) 
RLAT#RAD 


RDEG*L@NG 

DEC#RLOM#!1 0666666666002 
RLONG@RDEG + DEC 

OL@N # RLONG 
RLONG#RLONG*1.7453293 De2 


* IF Kt2 1g EQUAL Te 99 MEANS HAVE NOT MADE OR LOBKED UP THE 
TIME ZONE C@RRECTIONe THERE THE FOLLOWING CALCULATIONS 
ARE N@T NEEDED BECAUSE We CANNGT CALCULATE THE TIDAL OR 
HONKLE C@RRECTIONS WITHOUT IT 


ANNAaAN 


IF(KTZeNE*99) GO TO 6106 
KGDASLDAY 
KGM@ eM 
KGYR#LYR 
KGHMsLTIME 
1D89 
G8Te 630 


610 CONTINUE 
KTTaekTZ 
CALL CHGMTILDAY, Me, LYR, LTIME,KTT,KGDA, KGMO, KGYR, KGHM,NTZ) 
CALL MeDY(KGYR»skGME,KGDAs ID) 
ADAY & KGHM 
ADAY «# ADAY / 24000 
ADAY 8 ADAY + FLOAT (ID) 


E NORTH LAT OR EAST LON IS POSITIVE 
C SOUTH LAT OR WEST LON IS NEGATIVE 
Cc 


Ir (RLAT) 62026192620 
619 IF (RLONG) 62076302620 
‘ 620 CBNTINUE 


IF(SORN¢EQeSBUTH) RLAT#eRLATZ DLAT# e#DLAy 
IF (WeRECEQeWEST) RLANGseRLENG) DLEN#®eDLON 


Cc 
C # CALCULATE CLS AND HONK VALVES 


THR #KGHM/ 100 
A ds er Ae 

ALL TIDAL (RLAT,RLENGsKGYRs 10, THRs IMIN»CLS, HONK, DTD) 
RELM*RELM+CLS +HONK 


c 
630 CONTINUE 
IF (394)4402 4402450 


g » NEW REFERENCE STATION (s FIRST CARD @F GROUP) PROCESSING 
C 
440 REF PRELM 


1DA1#KGDA 
IMAL aKGMe 





creG2280 
CR2EG2290 
cr2G2300 
CR2G2310 
CR2G62320 
CR2G2330 
CR2G2340 
CR2G2350 
CR2G2360 
CR2G62370 
CR2G2380 
CR2G62390 
creG2400 
CR2EG2410 
CR2G2420 
CRaGe430 
CRaG2440 
CReG2450 
CR2G2460 
CReG2470 
CR2eG2480 
CR2G2490 
CR2eG2500 
CReG2510 
CReG2520 
CR2G2530 
CREG2540 
CR2G2550 
CReG2560 
CR2G2570 
CREG2580 
CReG2590 
CR2EG2600 
CR2G2610 
CreG2620 
CR2G2630 
CReGe640 
CReG2650 
CcReG2660 
CR2G2670 
CReG2680 
CReG2690 
CRaGo7 0 
CreGe710 
CR2G2720 
CReG2730 
CR2G2740 
CR2eG2750 
CR2G2760 
CReG2e770 
CR2G27380 
creG2790 
CR2G2800 
CRaG2810 
CR2G2820 
CRaG2830 
CReG2840 
CReG2850 
CReG2860 
CREG2870 
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LTYRL#KGYR CR2G2380 
1 TMi #KGHM CReG2890 
LSTASLSTAT cr2G62900 
TPCSs4 CReG2910 
LCNT # 0 CR2G62920 
IPAGE # 4 cr2G2930 
Cc CR2G2940 
C # CALCULATE DRIFT CrReG2950 
Cc. CR2G2960 
450 DIFFResRELMeREF CR2G2970 
CALL CDATE(IDAy,IMOg, 1 YRys ITM] sKGDA,KGMO,KGYR,KGHM, TMD) CR2eG2980 
ORIFTe(TIMD/2400) #DORFTCS Cr2G62930 
GOBS7sBASG7+DI]FFReORIFT CR2G3000 
ICOUNT#ICBUNT +1 CR2G3010 
Cc CR2G3020 
C # PUY G8BS7 + 977000¢ INT® BUTPUT UNITS CR2G63030 
Cc ¢ CR2G3040 
1CO8N*G6BS7/ 1000+ CR2G3050 
TEMP®]CB8N#1000 CR2G3060 
G8BS2GeBS7°TEMP CR2G3070 
1GsICON+977 CR2G3080 
Cc : CR2G3090 
C # COMPUTE FREE*AIR AND BOUGUER ANOMALIES CR2G3100 
c CR2G63110 
X82eeRAD CR2G3120 
CeRsces(X) CR2G3130 
FELEVe ( (0203085540.000224C2R) #ELEV) #f ((ELEV#00001) ##2) #00072) CrReG3140 
RAL*Rad CrR2G3150 

GFREE sG8BS7"GI167F (RA1) +FELEV 
BELEVs9+04185*DENSE*ELEV CR2G3170 
GBOUGsGFREE-BELEV CR2G31380 
(2 CR2G3190 
C » CHECK TO SEE IF LAT AND LON 8 O CR2G3200 
C OR IF ELEV # 0 CR2G3210 
G Ip THey 06 SET GFREE AND GBE8UG EQUAL TE 999¢0 CR2G3220 
Cc CR2EG3230 
IF (LAT) 2050220492 2050 CREG3240 
2049 IF(RLATM) 2050,2051,2050 CR2G3250 
2051 IF(LO@NG) 205022052s2050 CR2G3260 
2052 IF(RLA@M) 205022053422050 CR2G3270 
c CR2G3280 
2050 =F (ELEV) 2054205322054 CR2G3290 
2053 GFREEs999+0 CR2G63300 
GBEUGs99960 CR2G3310 
2054 CONTINVYE CR2EG3320 
c CR2G3330 
NSTATN#SLSTAT CR2G3340 
Cc CR2G3350 
Cc CR2G3360 
C # COMPUTE GSUM SORT KEY FIELDS CR2G3370 
Cc CR2G3380 
PLAT #& DLAT + 906 . CR2G3330 
LTKEY = PLAT CR2G3400 
PLON = DLON + 1806 CR2G3410 
LGKEY = PLOEN C8eG3420 
TAKEY # 0 CR2G3430 
Cc CR2G63440 
C Fes eHOHE HEHEHE E EES CR2EG3450 
¢ * CR2G3460 
C #» BUTPUT THE DESIRED INFORMATION CREG3470 
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i 360° C « CR2eG3480 
4 364+ C Hee enheteeeeaeeenane CR2EG3490 
: 362° ¢ CReG3500 | 
363° C * PUNCH BUTPUT FOR INPUT TO STATION DESCRIPTION PROGRAM CR2G3510 { 
3646 C  }PCS PREVENTS US FROM PUNCHING THE REFERENCE STATION WHEN CR2G3520 
3656 C 17 1S THE FIRST CARD 8UT CR2G3530 
366° C CR2G3540 
. 367¢ IF (IPCSeEQe1) GObTé CR2G63550 
4 368° Ir (ISW(2)) 835,8252835 CR2G3560 
: 3696 825 WRITE (JSTAPE, 5825) LYRsMOsLDAYsLTIMEsLSTATs IGM(1),1GM(2), CR2G3570 
; 370° 1  JG6sG08S/LSTA, 1BASEs BASEG( 2)» RLAT,SORN, RLONG, WORE, ELEY CR2G3580 
37ie 835 CONTINUE CR2G63590 * 
372° ls CReG3600 
373° C * LISTING OF CALCULATED VALUES CR2G3610 
3746 C ; CR2G3620 
375° IF (TSw(1)) 8698512869 CR2EG3630 
376° 851 IF ({LONT) 85228522860 - CR2G3640 
377° ¢ CR2G3650 
3786 C PRINT PAGE HEADING CR2G3660 
3796 C CR2G3670 
380° 852 WRITE (18UTs5001) CREG3680 
3816 IF (IPAGE e 1) 853,853,854 ; CR2EG3690 
3826 853 WRITE (16UT.5853) CR2G3700 
383¢ 854 CONTINUE CR2G63710 
38%. WRITE (18UTs5200) IPAGE,KDATE CR2G3720 
385» WRITE (20UT,5855) LSTA, [DAL,IMOL,IYRI,17M1,1GM(1),1GM(2),LSRC CR2G3730 
38660 WRITE (f0UT,5856) TBASE,BASEG(2)4 REFs DENSEs DRFTCB CR2G63740 
387° WRITE (10UT,5858) CR2G3750 
388° IPAGE = IPAGE + 1 CR2EG374) 
369° LCNT # 39 CR2G3770 
390° Cc CR2G63780 
391° 860 WRITE (160UTs5860) CR2G3790 
3926 1 WSTATALDAY,MO,LYRLTIME,KTZ, LAT» RLATM, SORNJCRe CreG3800 
3936 2 GFREE,CLS sDIFFR, DESC CR2G3810 
394° WRITE (10UTs 5862) GReG3820 
3956 rT {G, G6 8)KGBa, RaNe, KGYR,KGHM, ELEV, LONG, RLOM, WERE, RELM, R2G63830 
a. 356° 2 GB@UG,KONK, DRIFT, TIMD,ADAY CR2G3R40 
a 397° LONT «© LCNT © 3 CR2G3850 
398° 865 CONTINUE CR2G3860 
399° C CR2G3870 
AOO® C » euTPUT AT GSUM FA@RMAT T®@ KTAPE CR2G63880 
4016 C FORMAT FORWARD Cade * 3 CR2G3g90 
4OR® ¢ CR2G3900 
403° IF Per bag 88998712889 CR2G3910 
&O4e 874 WRITE (KTA F 28874) sie) rT saint Bee ae alla att cR263920 
4056 1 1G6,G08S, 10eP,GFRee, GBeauG, rCORR, JELC, 1GC,RFA, IREGC CR2G3930 
4068 2 TFFCsCLSsHONKsCRNy (DESC( 11) a 1164016) ¢NSTATNe IF BCs CReG3940 
4076 3. LIKEYs.GKEYs TAKEY CR2G3950 
4O8e 889 CBNTINUE CR2G33960 
4O9e & CR2G63970 
e410" * STMT. #899 IS THE ENO OF THE READ O6=.,66P CR2G3980 
4ite Cc . CR2G3990 
412° 890 CONTINUE CR2G4000 
4436 C CR2eG4010 
hi ae C She eee eeeneHennnnas CReG4020 
415° Gs CR2G4030 
416° G * END @F VeB CREG4O40 
4176 Cc # CR2G4050 
418 C Sete Peter eHeeeenene CcR2G64060 
&196 C CR2EG4070 
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q 
157 3 
420° 1890060 C@NTINUE CR2EG4080 ; 
42ie 184 CONTINUE CRE64090 
4220 9190 CONTINUE CR264100 
423¢ WRITE (I6UT5001) CR2G4110 
we4e OUTPUT ICEUNT CR2G64120 a 
&25¢ IFCISW(4)eGTeg) GO TH 24 CR264430 | 
4266 : ENOFILE KTAPE CR2G64140 
4276 5950 WRITE (16UTs5950) CR2G4150 
4286 REWIND KTAPE CREG4160 - 
429e 246 CONTINUE CR2G4170 
430¢ IPAGE 2 0 CR2G4380 
431.6 WRITE (1O@UT,5200) IPAGE,KDATE CR2G4190 
&32¢ sTeP CR2G64200 
433° Cc 2 CR2G4210 
4&34e0 C SFHHSHH HO RHHHHR EHH He CReG4220 
4356 Cc # CR2G4230 
436° C # FERMATS CREG4240 
4376 Cc «# CRaG64250 
4386¢ C Seeeeeesenneseeeennen : CR264260 
4396 Cc CREG4270 
44Qe 5001 FORMAT (441) CR2G64280 
441e 515¢ FeRMAT pS, CR2G64290 
44260 5200 FORMAT (T2IPAGEI4sT35IDATE BF RUN © 14A4) CRAG4300 
haze 5230 FORMAT (2A4s2X0F 1005215235015) 
4440 5285 FerMay (' GeMeteR » '2a4' DRF Ce & 'F100e5,5X'seuRCe CODE #114 
4450 t ' ELEY CODE etl4s5x'G METER CODE atJ4) 
4460 5290 FORMAT (t TABLE: 'S(leetetsF7eQ)) CRAG4330 
4a7o 5320 FORMAT (F3eQeFGe2) CR2G64340 
44Be 3332 FORMAT (F4ee) CR2G4350 
4490 S405 FORMAT (14s312014sF 803s LepFSeS Als [3eF Se 2pAloF Fels lSe31Al) CR2G64360 
450° 5825 FORMAT(3l2sl 4a 1x0 14, QAGs 3p F 60204 Xs los lZeFGe2e2(FIeb2A3 F701)  CREG4370 
4516 5855 FORMAT (/1 REFERENCE STATION #!15¢10X!READING OF 19( 121/11) 14, CReG4380 
4 4526 1 5xX,'METER # '2a4,5X!SBURCE CADE #114) CR2G4390 
i 453° $853 FORMAT (T2!ees NEW REFERENCE STATION eont/ CR2G4400 
; 4540 1 To eHseHOeedeeeeneeeeataeneeaeee! ) CREG4410 
: 455° 5856 FORMAT (' REFERENCE GRAVITY § 'J3eF6e2s7X'REL MGAL © 'File3, CREG4420 
e560 1 SX'DENSE ©',F5e2,9X'ORFTCO 8'F6e4//) CR2G4430 
4576 5858 FORMAT (' STATION'LOXIDATENLOXITZI4XILATITUGE'2X'CTR RONG! CREG4440 
458 1 GXIGFREEt3XICLSt SXIGDIFFIeXtDESCRIPTIONI/ CR2G4450 
459° 2 ' BBS GRAVISX'GMT DATE'BXIELEV!3X'LONGITUDE'AX'REL MGAL! CREG4460 
f 460¢ 3 &X'GBOUGTSX'KONK'OX*ACUM DFT! 7X'ITDIFFEI2X'DAeBFeYRI/) CREG4470 
i 464°¢ 5860 FORMAT (? '91427X23(T29/')16,6X%21302X%0 13a gXaFSeQsA1s 3% CR2G44a0 
} 4626 1 ZF 7e2eeX) oF Hels XaFSGeSe2Xs S11) 
I 4636 S862 FORMAT (! 'sl3eFbeaseXea(lol/! ) 4a aXe 7 ep s2Xel3aiXaFSe2sA1s3Xe CR264500 
464e 1 - APE 7 e2e2X)F4eee2XsFBe2eeXsFlQresaXxsF Beds CR2G4510 
f 465° 2 4) CReG4520 
j 466° 587, FORMAT (lyslasgloslasarSeuaF7ea0 CREC4530 
| 4676 1 T3eFbe2e1Ss2FbeleF oe scl aaF Geist ies CR264540 
| 4686 2 TeseFes2eF 70201 6Ate tas lee Z CR2G4550 
4696 3 2134%2) CReG4560 
470° 5950 FeERMAT(‘ WROTE ENO OF FILE!) CREG4570 
e710 C CR2EG4580 


4720 ENO CR2G4590 
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PRYGRAM CRWT3 
VERTTON SF 7 MARCH 1972.78 USE PINOT 


DIMENSIBN TAB(100)eICESC(o)sVEL(&) a TRICK (8) 0xK(8) 
DIMENSION NB@a( 4) 


PRKSGRAM ChkwT3, CALCULATES PRESSURE AT 8ASE BF CRUSTAL 
C3LLMN (KG/EM2) 


$S»(0) UP T@ LIST INTERMEDIATE VALUES FSR TESTING 
SSw(26) UP TS SET UTAPE = 10g AND IRECL # 0 

$S+ (32) LP T8 READ SPFMT CATA @N Tw8 CARDS 
So¥(33) LP 18 WRite SPFMT LATA ON TWO CARDS 


USES SUURBUTINES EVIL», ISwa STAT 


SAKAEEHEHREHE EEE SHEE ERA ERE REE 
ITAPE @ URN FAR SEISMIC DATA JNPLT 
JTAPE 8 URN FBR DATA SUTPLT 
ITAPE « | 
WTAPE «& 2 
PORES IT SELES OTe eer er ee Ce eee EERE STEPS T EA TTA 


EIN & £05 
TI8UT & 108 
NOUT#O 


PRINT DATE-AND TIME OF udH ON HEADING 
CALL TADAY(NGw) 

WRITE(TI@UTs13) NOW 

13 FOARMAT(1x%,4A4) 

INIT @ ISwlee2) 

CALL STAT 

K9 ® 1h9 

ISTAAs0 

WRITE (I1GUTs 600) 


600 FORMAT ( » 'PRAGRAM CRwT3eVERSION BF 7 MARCHS1972' //) 


KK aQ 
CALL PINOTCITAPE, uTAPE a KKs ISTASKEN @LATAL ATI, 
1 LONGs LBM, KE Ws, VEL a THICK» IMANT*NELEVaN La Nea N3aNnaa™ 


2 DINEsSTRIKsCRVNaWGTNsAVWTNa CRVW a WGT Ae AVWTW) 


er) 
> 


OCAMP = DEPTH 8F CAMPENSATIUN IN KMe 
ICTAB » 0 FOR NAFE DRAKE, ® 1 FAR WABLARD DENSITY TABLE 
READ (IIN» 2) ICTABs DCUMF 
FORMAT (15¢ F1Q00) 
BUTPUT ICTAds DCOMP 
READ IN 10 VALUES PER CARD 
READ (IINy 3) TAB 


YR» IOESC, 








PR PEN PIS TEER LIP ONCE MARAT eI BARS UA wt (SY NR RESET TRE erie , . 








} 
§ 
161 
43. 3 FORMAT !10F 83) 
54e Cc 100 VALLES ENTERED 
55-6 € 
566 C REACING U OF fERSnTG wARLL SEISMIC REFRACTIGN COMPILATIUN 
57 10 CANTINGE 
586 KKs] 
59-6 CALL FPINGTCITAPE* UTAPEs KKa ISTASKEY,LAT*ZLATMZKNS, 
2 oC. 1 LONGZLOM, KEW, VEL se THICK, IMANTsNELEVa NL yN2aN3eNGaMETs TYR, IDESC, 
: bie 2 DINEsSTHIKs CRVN@WGTNs AVWTNe CRVWAWGT Ne AVWTH) 
/ 626 IF (KK=9) 12015492120 y 
‘ 536 leo. CONTINUE 
: b4e IF(1SW(0))16415916 
i 656 16 AR ITE (TIOUTS 17) ISTAsKE Ys VMANTSELEVaN1 yg Nea NOs N4 
; bbe 17 FBRMAT(! READ' 4 3X9 15s Lash SoleF 71s 3xe4lt) 
i &7. © CRECKING IF KEY = G 
i bade 13. LFCKEY@K9)20919220 
i 4696 2c CANTIALE 
i 706 ELEVShELEV 
4 71le ELEVSELEV «0001 
Ze VMANTS(FLAATCIMANT) #00) 
73¢ \CTsR 
74e 43 TF CIMANT)$0s650,50 
756 SC IF (NL*#2) 79260470 
The C SEA SEISMIC PROFILE 
77 60 DINE = ELEV 
78s wGT @ LeO3*ELEV#1L0060 
796 Ge Te aC 
EC. C LANC SE ISrrc PROFILE 
| Bi» 70 DINE = ELEY 
; 420 GT 2 Oe0 . 
R2e 2S wATw = WGT 
B4e IF (1Sa(0))81233,31 
&5- SL WRITECTIGUTs ae2yOINEs WT 
Abe RE FERMATCIDINES' Fe eee tre wOTttsFi0e2) 
BJ. #39. «SX = 000 
fas STRIK 3 OeC 
&9- 08 86 ye ,,NCT 
90-6 KK = VEL(U) #1000 
Ble DENS = TAB(KK) 
32° WGT = “GT4(DENS#THICK (UG) #10000) 
336 CINE = DINE + THICK(U) 
D4 X(0) = VEL CU) THICK (OO) 
B56 Sx 8 SX + KU) 
96¢ STHIK 3s STKIK + THICK(J) 
B7. IF (IS (0) 84236434 : 
; 98s ke wRITECLI9UTs #5) Ge KKa TRICK( I) s DENS, WGTo DINED 
4 996 1 XedeSXsSTHIK 
100- RS FERMAT('DS LEGPIPAXe 124 14s 2XaF bode 2XaFuory 
101. 1 OXaF 10+ Dy eX Fy els 2XsF be 2e2XaF 6e2a2XKsF bed) 
1U2- ab CBANTINUE 
| 193+ CRVEL # SX/STHIK 
1046 KK = CRVEL#HL00(7)4005 


195-6 CRDEN = TAB(KK) 


| 





‘DA teem seen ne SaaS: SSSR : 
, ns nema sc idiceeesegsatnlnaschacistubaianidbh dott aac erp i ttn ae ae EE 


i pae 


pies 3 


162 





: 
: ij 
Fr 
c.f 106. KK & VMANT*10004005 ; 
. £ 107+ DENS = TAB(KK) 
4 1CB. A a CROENSSTHIK#100¢0 
EC 199. Ros DENS#(DCHMPeDINE) #10000 
r 110. IF (1Sw(0) )390295,90 
. & Lie gC WRITE (118UTs 92) CRDENs DENS, Aa 
= | 1126 92 FORMAT (ICRDENat,FS5e223X%e'DENSs 'eFSe204X, 
: ; lide 1 VAs eF 1602s 3X2 188 'sF 1Co2) 
1146 95 wGT s wGT + 6 
1156 AVWGT = WATW +A +8 - 
1166 C 
1176 C SETTING UP FSR PROPER BUTPLT 
11. IF (1CTAB) 81028202810 
119-6 &1C CRVW & CRVEL 
120. wGTw 3 WGT 
121. AVwTWe AVWwGT 
1226 G6 TO 859 
1236 &2c CRVN = CRVEL 
124. wGTN # WGT 
1256 AVATNa AVWGT 
; 1266 C BLTFLT RESULTS 
4 1276 So CONTINUE 
12K. KKaee F 
' Tags CALL PINOTCITAPEs UTAPE a KKe ISTAGKE Ys LATS LATM,ZKNS, 
3 1406 1 L@NGrLOMy,KEWs VELaTHICKs IMANTsNELEVeNd a N2aN3aN4eME Ts TY¥Re IDESC, 
q 1316 2 DINEsSTHIKsCRYNAWGTN, AVWTNa CRVW,WGT Wa AVWTW) 
136 NO@UTENSUT +1 
133- Gh Ta 20 
134. Sac WEATE (1 fourases NaUT 
1356 645 FORMAT('ESF FAYND ON INFUT TAPE 'y110) 
146-6 NOUTSC 
137+ END FILE uTaPE 
138. 995 CALL EXIT 
1396 END 
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164 
: 
j INTRINSIC SUBPRIGKAMS USED! H 
FLOAT ; 
EXTERNAL SUBPRAGRAMS REGUIRED: 
EXIT 136 PINOT Svar ss TAOAY Fe101 Feice i193) 
F31o4 Fiics F106 Feiyr M308 - Mac BRCODKEAD = 9BCDwRYT 
SENOFILE SENDTOL SINITIAL QIBLATA 9IBLUSA SITAR SPRINT ORIG. 
SsTur 
HIGH: ST CRRGR SEVLRITY$ 9 (ND ERRYRS) 
REC HEX 
,9ROS wORDS 
Fe GENFRATED Cabe: 461 CO1LC3  =(N8 VEMARY PROTECTION) 
CUNSTANTS3 9 00009 
LOCAL VARIABLES: 182 00086 
TEMPS! fe) 00000 


TOTAL PRUGRAM: 642 O0282 





te 
ee 
3e 
4e 
Se 
he 
Je 
Re 
Ge 
10¢ 
ile 
126 
13. 
14e 
15° 
16° 
17e 
18-6 
196 
20° 
ete 
ene 
236 
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ADNDAANAIANNN 





PRAGRAM DMARLK 
PROGRAM T@ READ BLOCKED BY SO DMa SOURCE TAPES 
AND CONVERT THEM 78 BLOCKED BY 55 GSUM TAPES (IFFCs9) 
KYRBRIC 8F PRAGRAM DMA ANC CANV67 
VERSTAN 20 AMY 75 TO REMoVE DOUBLE BUFFER 
VERSION BF 12 MAY 78 TS ZERO VARTABLES FOR CPV 
VERSTSN 9N 20 DEC 74 TE CORRECT TEST BG IELEV AND ZERSING BUT 
ELEVs InDEPsFAsGG, ANC TC 


VERSIE8N 39 SEPT 74 TE CORRTECT SPELLING AF JSLAT IN READ 
GRIGINAL VERSI@N 25 JULY 1974 BY 6» GOVE 

CIMENST@N 1A(35) 
CIMENSJ9N TPUFIN(21,50), [BUFO8T (32,50) 

DIMENSION I12Z( 9)eTW(35) @ 
CS8LELE PRECISIAN GBS 

INTEGER ANE, TWO 

INTEGER TRREE,FAURSFIVE 

INTEGER SIX*SEVENSEIGHTs NINES DEE 
DATA BNEaTwSs'4 19'2 '/ 
DATA TRREE,FGURSFIVE/S'3 214 1th 1/ 
DATA SIX,SEVEN,EIGHT/ "6 ','7 ','8 '/ 
CATA NINEs,DEEs'9 "p"D '/ 

JNEGa {he 
BUTFUT 'DMASLK VERSION 2¢ MAY 751 
BUTFUT ' AN DEC 42 74 IT WAS DISCB8VERED THAT! 
BUTFUT 'THE LAGIC JN PRAGRAM DMA DID NOT KANDLE! 
QUTFUT 'tELEVATAN CADES ATHER ThAX 4 AND 3 CARRECCTLY» 
BUTFUT 'IT wAS aLS@ DISCEVERED THAT OMABLK DID NAT ZERO! 
BLTPUT " ELEV aNnD ,OEPe Ye FIX HIS A TEMPRRARY ' 
BUTFUT §' VERSTAN BF DMAuLK WAS ™,CE! 
BLTPUT § TKIA VERSI6N WRITES 4 AX 3 IN GSUM + 
GLTPUT 'BUT YUST PASSFS ALL 8THER ELEV C&DES TB LTAPE! 
gUTFUT ' IN, CMA FeRMATe ALL Gslm @/P 71S Gast! 
SUTPUT ! LEE GOVE DEC 13 74! 

ITAPEs4 

wTAPEs2 
LTAFEs3 
NRECRD20 

18D8AL 39 

INs1095 

18UTs403 

IREC2s2 

ITAPER1 
UTAPEs2 
KTAPE #108 

ICNT#0 
NIN&a5O 
NAUTSO 

TPUTSWs4 
DEGrAe1 e745 acgee2 

KKsO 

Ks} 

KAsep 

NREC#¢ 
A20.0 
CLAT#O*® Is OLANGSOO 
REICTs9°0 


“TAKE Y20 


ICEIFs¢ 





60¢ 
Sle 
626c« 
63° 
64e 
65-6 
6660 
ove 
OR. 
696 
70° 
Fie 
JR. 
736 
Jue 
75° 
Tee 
77. 
7B 
796 
BO« 
Bie 
Bee 
&3° 
Bue 
85~« 
S660 
&7 
88e 
B9« 
90° 
91° 
G20 
936 
She 
956 
960 
S76 
9Re 
996 
100° 
101° 
102.+ 
103° 
104-6 
105-6 
1066 
107+ 
1GRe 
1096 
110° 
1ii- 
112° 
113. 
1i4e 
115-6 
116. 
1176 
1186 
119° 


mYaNM 


On 


ann 


305 


10 


15 


30 
40 
50 


96 


$5 





IF8CsO 
INFUT STARTING SEQUENCE NUMEER FAR ID 


READ ( [Ns &)NSEG 
FARMAT(I1C) 
SUTPUT NSEG 
READ (INs50O&) ITSARC 
FERMAT (15) 
BuUTPUT ISSRC 
KGDAs0 
KGMB 8G 
KGYRaO 
KGHMaQ 
IDIFs0 oo. 
KGDAB sD 
KGMBASO 
KGYRAO 
TELC8¢ 
IGCe0 
IREGCsQ 
IFFC89 
IFBCan 
RFAsNeD 
BUFFER L@GIC FeR I/P 


CONTINUE 

IF (NINeLT¢59) GS TA 90 

NINSO 

CALL BUFF IN(ITAPEs Os IBUFIN( 101),1050) 
CONTINUE 

CALL ICHECK(ITAPE,IKEYsh1) 

G8 Th (20750230045) IKEY 

BUTPUT "WAITING FAR I/7P's JEADSO 

G@ 768 15 ~ 

BUTPLUT "END BF FILE ON ITAPE'; TEg0ed 
66 TB 50 

BUTPUT 'NUFFER IN ERRORIZTEBD #4 

GA TA 399 

CONTINUE 


INPUT LOGIC 


CONTINUE 

NINSNIN¢4 

IF (NT eEGe1050) GO TE& 95 

GSING TA FEF PROCESSING 
NINCHKaNIN®24 

IFCNINCKK+GTeNI) GA TE $99 
CANTINLE 

ELE v¥4Oe0 

IDE so 

FAs999e0 

66#999.0 

TC99909 

NRECRDa#KRECRD +4 

DECBDE (84, 500s IBUFIN( LaNIN) g ND) 
A IGEOCs ISL ATL ATsAL ATs ISLGsLONGeAL ONGs TELEVe TELUs 
A ELEVsDEPIN»GBBS, 
A FA,BG,SAURCE, IBASE,IBR,ISEO 





a epeenaeteemaaieeespamnen int te ee ERRORS 


ene te TOE cnet RAT am OR BIEN SA EIT CEPTS ARE ORS FRB tN Ne RRO NONE BAIA SS TOY WAT RE 


| 
| 167 
| 120° 500 FORMAT(OXo Tp oAqalaaFeeaapXaAjala,FoeaayXsAzalyaF Joga pXsF Sepa Xs 
121.6 A FoepelXs 
122° A Fe oi Xe Seta aKsAbs xXsAdsAta {Xp AGe4x) 
123+ € 
1246 C ECIT LeGIC 
1256 Gs 
i e606. £ 
| 127-6 Cc Te ALTPLY RECARO SECUENCE NUMBER IN STATION NUMBER FyELD 
j 128+ Cc 
129° AaNSEG 
i 130° KGYRsA*0°0001 
131. BekGYR*10CC0 
132° KGHMsA?RB 
1336 507 KGHM8sKGHM 
1346 KGYR@sKGYR , 
135. C GRAUPING VaRyables FeR BUTPLY UNDER ARRAY JA 
136° ENC8NE (352410212) SS8URCEsIBASEs TBR» ISEG, IELEV 
137° 41C ie ea ee ee 
| 438. CALL UNPKBY(IZ, IW, 35) 
| 139° D8 420 Je1e35 
1406¢ TAcu) wISL( IN (4) 924) 
141° 426 CANTINLE 
142° C 
143.6 C CALCULAT LATsLONGsAND KEYS 
14460 C 
1456 DLATSFLAAT(LAT) +(ALAT/Z6C 00) 
1466 IFC ISLATeEGeUNEG) DLATS=OLAT 
147. LLANGsFLAAT (LENG) +ALENGs/60¢0 
H 1486 IF (ISLGeES eJNEG) DLANG® ©DLENG 
’ 149. PLATBDLAT+9OeCILTKEYSPLAT 
; | 150° PLONG2DLOANG+180°0s3LGKEY*®PLONG 
151° Cc CHECKING GE@GRAPHIC COBROINATE CODE 
| 152° IFC IGERCeEGe WRITECIIGOUTs510)SSURCEs,ISEG 3 GA TE 99 
j 153, 51C FORMAT(' Gro CADE = 1, STOPPED PROCESSING aT ',A4,2X,A4) 
154-6 IF (IGES8CeEQe2) wRITE(II9UT2520)SauURCEsISEG 3» G8 TS 99 
1556 S20 FORMAT(' GEA C8DE e 2» STOPPED PROCESSING AT '5A4s,2X, Au) 
156° Cc CONVERT ELFVATISN TO METERS CEPENSING 6N C8OF 
| 157° IF(TELUcEQe4) ELEVSELEV/30284 
| 158. IFC TELUsEG 62) ELEV®ELEV/19 6686 
159° IF(IELEVeEGeG@NE) G6 TO 5215 
| 160° IF(TELEVeEGe THREE) IDEPSELEV;ZELFVegeQsGS TA 5215 
161° IADBAL SISDBAL+ 4 
1626 wRITE(LTAPEs5555) (IBUFIN(KKaNIN) sKKe1921) 
163° 5555 FARMAT(24A4) 
} 1646 G8 TB 19 
. | 165° 5215 CS8NTINUE 
166° IF(GABS = 9°05) 521425212524 
; 167-6 521 «977 = 0 
168-6 BRSG = O00 
169° GA TP 528 
170. 524 GeBS8GRFS+976000e00 
171¢ CALL 88G0(KS77289SG62G83S2k8) 
472° C CRECKING FAR VALID HEIGT 
173° 528 CALL ALTO(FLEV,IDEP,HEIGT,KK) 
! 174. LF (KK 09) 550,530,550 
} 175° 530 6Gs999°0 
) 176° Cc BUTPUT RSlLM RFECARD 
177° 556 COANTIANLE 
178+ C 


F 179° C BUTFUT LEGIC 
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1896¢ 
1&1. 
182- 
1836 
184. 
185-6 
186.<+ 
187. 
1886 


189¢« . 


190° 
1916 
1926 
193° 
1946 
195° 
1966 
197° 
198+ 
499e 
200¢ 
2o1e 
202+ 
2ec3e 
2C4e 
2056 
2066 
2076 
2C&e 
2096 
210° 
21iie 
2128 
213. 
elise 
2156 
2166 
217. 
218s 
2196 
220¢ 
2216 
222° 
223. 
224s 
225° 
2266 
2e7e 
228. 
2296 
230° 
231° 
232. 
233° 
Cahe 
235° 
2366 
2376 
238« 
239° 


nan 


OAM 


NAN 


300 


{ 
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3¢5 


319 


939 
910 


92C 


96C 
3S 


109¢ 
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$8 


10014 FARMAT 


168 


CONTINLE 
NOUTSNOLT +1 


ENCADE (122,1001,1BUFST(1,NGUT),NC) IREC2,ISARC,KGDA,KGMS, 
KGYRAKGRM*OLATaCLONGsELE Va K977e9BSGs IHEP s FAL BGs TCP IELC, 


1GCaRFA,IREGC,IFFCs, LAs IFECeLTKEYsLGKEY, IAKFY 
NRECSAREC +1 
NSEGsNSEQ+1 
KGHMBakKGHM 
CONTINUE 
IF(N@UTeL Te50) GA TB 190 


BUFFER L@GIC FER 8/P 


CANTINUE 

JKEYeICHECK (UTAPE) 

GB T6 (320235023302340) wWKEY 
BUTPUT "WAITING FAR B/Pt § TEBDS, 
GA TA 310 

SUTPLTIEND 9F FILE UTAPEr j;1EBDs1 
Ga Ta 999 

SUTPUT 1 BUFF BUT ERRABR: 5 JEBDSy 
G8 78 999 

CANTINGE 

NBUT#O 

CALL BLFF SUT (JUTAPEs Qs ISUF6T(191)21600) 
GA Te 49 


END @F JSR 


CONTINUE 
CSNTINUE 
JUKEYSICRECK (UTAPES 
G8 TA (920,950s9304,940) UKEY 
BUTPUT ' WAITING FAR B/E! 3» JEBDE4 
GA TB 910 
BUTPUT ' BAD vKEYt 3 JEBDs4, 
GA T8 960 © 
SUTPUT 'BUFF 8UT ERROR » JEBD8y 
GS T8 940 
CONTINUE 
JwOSsN@UT#32 
CALL BLUFF BUT (UTAPEs os IRUFAT (444). dWDS) 
CONTINUE 
CANTINUE 
ENO FILE LTAPE 
ENO FILE JTAPE 
NSEGaNSEG*} 
WRITE (18UT,1090)NREC,NSEG 
FORMAT('TEND DMA RUN», DATA PBINTS WRITTEN » to 18s 
"LAST SEGUENCE N93e w ty, 140) 
WRITE (I8UTs1092) NRECRD 
WRITE(T8UT, 1091) L@DBAL 
ByTPUT "ALL OBNE! 
CALL EXIT 


FORMATS 


FORMAT (4X1 3244) 
(Tpslasziaal uso 9eueFJFeaslgsFGeps Saar bey sFuoys 
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. * TeaFGegalyela035AjayXalysalgel2) 
fai. 1091 Forays 3X, 18, 1%, '@00BALL RECBRDS WRITTEN') i 
2420 1092 FARMAT(3XaI5a1Xe tRECARDS READ?) ] 
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: 172 
a3 
N 1° C PROGRAM DMAP 
2: C VERSION BF @ DEC 4975 TO ChECK HEMISPFERES 
Ze C VERSION 27 BCT 1975 
he €’ VERSI@N AUGUST 1968 
Se IMPLICIT REAL#8( Ash, B°Z) 
és CIMENSION xXC(4)sYC( 4)» SC(4),CC(4) 
7« OIMENSION EDEG(8)sBDIF (a) 
Be CIMENSION LAT(4),LANG( 4) 
Qe BUTPUT 'CMAP e« yERSIGON g DEC 1975! 
10° C CONVERTS CIGITIZED POSITION IN INCHES 
11. C T6 LATITUCE AND LONGITUDE 
12e re N@ cOwmON REQUIRED 
13° = JSw CHBICE DATA CARD GOES BEFBRE ITAPE ETC CARD 
14e C USES SUB CALSC( ARG), FUNC FARTM( ARG), FUNC ISW(N), 
iSe C SLA RTADM(ARG),FUNC CMTOR(ARG) 
a 16° C 
ef 17° C SSwt2) Up TA LIST INTERMEDIATE VALUES 
a 1&8. © §sSw(3) UP TA LIST DATE AND SMIN FOR EACH DATA POINT 
; 19. C gsgwiS) UP 78 BUTPUT SMIN BNLY JF GREATER JHAN EPSIL 
| : 20e c 
| 21° C NYR®O WILL TERMINATE PROGRAM 
q 2e°¢ C START INITIALIZATION FOR SIGMA 7 
a 23° TIN#405 
j 24- 116uTs108 
256 INIT s ISW (#2) 
| 26° C END INITIALIZATION FOR SIGMA 7 
’ 276 DEGRA=1¢745329E «2 
@ 28 THEMwe lI HEMSs6 
29- ITYPE sO 
‘ 30° IGAL ag 
a 31. N6020 
“ 32¢ MAFaQ 
33° C JYAPE = URN FOR DATA INPUT 
34, C JTAPE ® URN FOR Data BUTPLT 
E 356 C FRAC © FACTBR (O01 TE 1°00) USED IN ITERATION FOR 
, | 366 C ESTIMATED LATITUCE TO CONVERGE ON TRUE 
| 37° C LATITUDE 
. | qa. C EPSIL « TOLERANCE (IN MERIDIGONAL PARTS) BY WKICH 
‘4 396 C ESTIMATED LATITUDE MUST MATCR MERIOTONAL 
. | 4Ce C PARTS FAR TRUE LATITUDEs 
vie READ(TINs6) 1 TAPES TAPES FFAC,EPSIL 
i 4Qe 6 FARMAT(215eFSe2,F502) 
43° C REAC IN DATA 
44e 8 REACCTTAPEs15) 1CO0E, XP, YPsNDAs NMB,NYR,NHM 
j 45< 15 FORMAT(1191X%sF5¢304X9F 5030313015) 
( 46> C CrANGING SIGN FOR wesTFRN BR SOUTHERN HEMI SPRKERE 
i 47° IFC IMEMA oGTeQ) KXPewy eQa xP 
; 48s IFCIREMS eGTeo) YPse4eQ#yF 
} 49 IF (1C@CE*9)50,20.50 
i 50. © SETTING MAP COBROI[NATE ANO SCALE 
54° 26 XC) eXP2YC( 4) #YPSLAT (1) SNMOUJLONG( 1) ®NYR 
52. C  CrANGING SIGN FOR wesTERN BR SOUTHERN hEMISPRERE 
53° IF(LONG(1) eh T0O) XC(1)801¢0#XC(1) 3 THEMWeS 
She IFCLAT( Lek TeQy) YC(1)se10eO#YC( 1) sp THEMSeS 
556 06 25 ysee4 
56 REAC( I TAPEs 15) I CODE XC (Vda YC( YI ONLaN2aLAT( Qe LONG(Y) 


: 
gq 
qa 

; 

- 

f 


57. C CrANGING SIGN FER WESTERN BR SOUTHERN HEMISPRKERE 
aR TFCLANG (4) el Ten) XO (J) Bet en#VC (J) 
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60°¢ 25 CONTINUE 
61° MAP aMAPe4 
626 C DETERMINING AVERAGE SIN AND COS 6F ANGLE OF TILT 6F MAP 
636 CALL CALSC(XC(1),YC(1),XC(2),YC(2),SC(1),CC(1)) 
64 CALL CALSC(YC(2)4xXC(3)2YC(3)2xC(2)25C(2)eCC(2)) 
65° CALL CALSC(OXC(4)cYC(4)» XC(3)2YC(3)4SC(3),CC(3)) 
666 . CALL CALSCOYC(1) 9X04), YC (4) 2 XC(4),5C64),0C64)) 
67s AS s (SC(1)4#SC(2)4SC(3)+SC(4) 7400 
68+ AC ® (CC(1)4CC(2)4CC(3)4CC( 4) /H00 
69 Cc LIST CALCULATED SIN AND COS BF ANGLE 6F TILT OF MAP 
70° WRITE (TIOUTs 24) MAP. ASS AC 
71° 24 Fa@RMAT('MAP «& bay SIN A ® ', F8e6,' COS A ® 'FB6) 
72° IF (IS#(2))26s360 
73° 26 WRITECTLOUToo7 SC (4) SC (2) 9SC(3) 9SC(4) 
74e ee es 
75° 27 =FORMAT(4F10¢6 
76° Cc ROTATION eF AXES ai CALCULATE MAF SCALE 
77° 30 XT#xXC(2)"XC(4) 
78. YTBYC(4) eYC(1) 
796 YTTsCABS(YC(2)"YC(4)) 
80° XTTSDABS(XC( 4) eXC{4)) 
81° X3aOSGRT((XTHHO)+ (YT Tee) ) 
82° Y3aDSGRT((YTa#wo)+(xTTeee) ) 
83° A*LONG(1) 
84e B=LenG(3) 
85. SINCHSCABS(X3/(BeA)) 
86« SMPaSINCH/60 00 
q 8&7. AMQOe0 
a 88. RLEFTsOMYAR(LANG(1),AM) 
3 89° RBBT sOMTBR(LAT(14: »AM) 
4 90° RRIGTSOMTOR(LONG(3),AM) 
4 91° RTQ@P sOMTOR(LAT(3) »AM) 
926 FLEF Ts @NG(1) 
93° FBBTsLAT(4L) 
94> BO TMP SPARTM(RBOT) 
95-6 TAPMPsPARTM(RTBP) 
96° IF (RB87)33435435 
976 33 BOTMPaeBA TMF 
99° 36 TOPMPseTEPME 
"100° 4¢ OLDEG#LAT(3)eLAT(1) 
101+ AVMPs (TEPMPeBATMP) /OLCEG 
102, C FYyNTSKEO CaLCULayING SCake aND PaRaMereRS FROM COBRDINATE POINTS 
103° G8 Té6 8 
104-6 C MAIN CALCULATION PORTION FAR MAP DATA PBINTS 
105° 50 IFI(NYR)529100052 
1066 C ROTATING CATA POINT 
107° 5e xPaexPexC(1) 
108° YPsYPeYC(4) 
1096 X 8 (XP#AC)+(YP#AS) 
110° ¥Y § #100#(XF#AS)+(YP4AC) 
111° C CETERMINING LONGITUDE @F DATA POINT 
112° CEGLG=FLEFT*(X/SINCH) 
113° ILENGsCEGLG 
114+ AsILONG 
115° RLOMs(DEGLGeA) #6000 
116¢ ¢ 
117° C CETERMING LATITUDE OF DATA PBINT 
118° C 


119° yys#y 
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120. Py sBaTMP+(YY/SMP) 
121. KCNT8O 
122+ C MAKING FIRST ESTIMATE Sf LATITUDE OF DATA PBINT 
4 123> DEGExFEOT+( (PMeBOTMP) /AVMP) 
€ 124. 6C RDEGESDEGE*DEGRA 
: 125+ CALMPsPARTM(RDEGE) 
; 126+ . KCNTSKCNT*1 
ft 127° C FINCING OIFFERENCE BETWEEN ACTUAL AND MERTDOAAL PARTS FAR 
& 128+ c ESTIMATED LATITUDE 
129° DIFMPsPMeCALMP 
130. IF (1Sw(2) )61,65561 
131° 61 WRITECTIOUTs2 62) KCNTsPMsDIFMPs X30 Y3eSINCHD 
132+ 1 SMP,AVMPoXsY,YYsBETMP, TAPMP 
133° 62 FORMAT(14s6F 1002/6F 1002) 
134° 65 ACIF*CABS(CIFMP) “i 
135° ECEG(KCNT) ®*ROEGE 
136¢ BOIF (KCNT) sADIF 
137° CC EPSIL IS MERIDENAL PARTS FOR oot MINUTE OF ARC 
1386 ye \uen tc grepeeu? sy : 
139° C Ma~KING Neh ESTIMaTe BF LATITUDE FOR Data Payhy 
140+ 68 REGEsCEGE+( (DIFMPsAyMP) «FFAC) 
144° G8 T® 60 
142° C SELECTING MINIMUM ADIF, CALLED SMIN 
143° 8c SMIN#BCIF (4) 
144.6 RDeEGe seDeGl1) 
145° C6 B82 18208 
1468 IF (DIF (1)*SMIN) 81282082 
1476 8, SMIN*BOIF(1) 
1486 RDEGE sEDEG(1) 
1496 82 CONTINUE 
150° IF (1SwW(3) 1832184283 
151° 83 WRITE( IT IOUT 183) NDA, NMB,NYRyNHMSSMIN 
152- 183 FORMAT(S312,15,F792) 
153¢ G8 T6é 84 . 
1546 184 IF (SMIN@EPSIL)84284,185 
155° 185) «IF (1SwW(5) 183284283 
1566 84 CALL RTBOM(ROEGE, ILAT,RLATM) 
157> C OLTPUT POSITION BF DATA PBINT 
158° WRITE (wTAPEs 85) NDAs NMO,NYR,NKMy ILATSRLATM, 
159° 1 JLONG,RLOM,ITYPEs IQAL,N60 
160° 85 FORMAT( 31201 4sSxel3sixeP7 ese leg XoF7e3eaxe last i 915x011) 
161° C 85 FORMAT( 31 291 4s9XelaeF Gear asFGeae2Xel oat ys 346X014) 8LD FARMAT 
162° G6 Te 8 
163° 10c¢)«=CWRITE( IT 18UT2101) 
164+ 104 FO@RMAT( LAST PAINT PROCESSED) 
165° END FILE JTAPE 
166° REWIND JTAPE 


167° END 
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_.ANK COMMON (0 WORDS) 
ITRINSIC SUBPREGRAMS USED$ 
Cabs OsSCRT 


‘TERNAL SUBPROGRAMS REGUIREDS 


CaLSC CmT6R Ish PARTM RTGOM Feiot F%102 £3iG3 
Fiqo4 +105 Fi406 F3108 M306 M36C Q9BCDREAD 9BCDWRIT 
SDSGRT SCTe! SENCFYILE 9ENCyeL SINITIAL 9YADATA 91TeD SPRINT 
SREWINO gsTeP 


“GREST ERROR SEVERITY; o (NO ERRORS) 


bec HEX 

weRODS WORDS 

VENERATED CODE3 544 00220 
CONSTANTS$ 14 QOCOE 

ICAL VARTABLES? 182 00086 
TEMPS; é 00002 


TETAL PREGRAM; 742 002E6 


‘a 


s 





Cc 
c 
C 
Cc 
C 
ae 
Cc 
Cc 
Cc 
Cc 
C 
C 
Cc 
C 
C 
c 
€ 
C 
C 
c 
C 
€ 
C 
Cc 
C 
C 
C 
C 
Cc 
G 
Cc 
Cc 
C 
Cc 
Cc 
C 


PREGRAM DOMED 

VERSION BF 6 BCT 1972, TO ALSO FANDLE CASE WHERE SECBND CARD 
Ta The LEFT BF ThE @RIGIN PAINT (FIRST CARD) 

VERSI@6N 8F 145 BCT 15714 CARRECTS FORMAT ERROR 

VERSI@N OF 6 APRIL (971, BUTPLTS POLYGON AUMBER IN SUTPUT CARDS 

VERSIGN 6F 23 MARCH 1971, ALLOWS FOR MAKING END CARDS 
VERSI6N 6F & FEB 1971 
FRAGRAM CMEC, FeR OCIGITIZING PeLYGaNs FaR CRUSTAL MeDELS 


SSw(1) = QO FEAR SECEND PAINT TE RIGHT (+) OF ORIGIN 
» 4 FAR SECSND POINT TE LEFT (#) BF BRIGIN 


¢ 


BN CIGITIZING YASlLeE, IC8CE 1S SET IN LEFTMEaST THUMBWHEEL SWITCH 
POSITIGN BN MANLAL EATRY SWITCKS 
PO@LYGSN NUMBERS ARE SET IN THE THREE PAIRS OF SwITCHES 
T6 THE RIGHT 6F THE LEFTM@ST SWITCH 


INFLT DATA CARCS 8 
1 ValLUgs FOR xFac & YFaAC IN KM'S 7 IACK ahO0 
KM VALUES 6F @RIGIN BF MBCEL (461000) 
@ ¥® ANC Y VALUES FROM CIGITIZING TABLE FER ARIGIN 
3 xX ANDO Y VALUES FROM CIGITIZING TABLE FAR A POINT AT SAME Y 
LEVEL AS @RIGIN 
4 X AND Y VALLES FROM DIGITIZING TABLE FER PBLYGSN CARNERS 


SET IC8CE « 9 FOR INDICATING LAST CARD 6F PSLYGSN FOR TALPLOT PREG 
SET ICBCE 2 @ FOR X = #300C KM 
SET ICHCE * 7 FOR X # 4300C KM 


ICBDE 1S RESET BY PROGRAM TO ZERO 
LAST CATA CARD SHOLLC HAVE ICBDE = 99 


ALTPUT + CMAD SF 6 ACT 19721 

TIN® 405 

116LTs 108 

wTAPEs 106 

INIT «9 ISW(%2) 

READCTINe 12) XFACsYFAC,XB8RG, YORG 
FARMAT(4F1C #0) 
REAC(IINs2C)XAsrYAsTA *KELakKP2eKP3 
FORMAT (2F 10032150314) 
REAU(IINs 20) XBsYBs IB aKPysKPoeKP3 
CALL CALSC(XA,YAsXB, YE, ASS AC) 
BLTPUT ASsAC 
REAC(ITINs 2c) XP, YPsICOCE, KF4,KFa,KP3 
IF(ICACE*SC)6C » 60 » 999 
CONTINLE 

xPs yxPeXA 

YFe YPeYA 

Xe (XP *# AC) + (YP * AS) 

Ye #100 #(XP#AS)+(YP#AC) 

XKM= (X*#XFAC) + XBRG 

YKMs (Y#YFAC)+ YARG 

YKMaegeO * YKM 

IF (ISW(1))68,68,64 





REVERSE SIGN @F x DISTANCE SINCE SECQNC LEVELING PAINT 
wAS TO ThE LEFT BF BRIGIN 


XKMeeXKM 
YKMaewYKM 
CONTINUE 
IF ( 1C8DE=8) 74270974 
XKMe"3000eC 
ICOCEec 
G@ TA 100 
IF (ICOCE*7)90%76290 
XKM=+3000°0 
ICHCE so 
Ge TA 100 
CONTINUE 
IF (KP4)11091107105 
WRITE (eS TAPE, 22) XKMy YKM, ICODE, KPI 
IF (KP2)12C021202115 
WRITE (YTAPEs 22) XKMs YKM, ICBDESKFO 
IF (KP3)13C2130,125 
WRITE (TAPE 22) xkMs YKMs ICODEsKPS 
CONTINUE 
FORMAT(2F1Ce2e114220xe2I8) 
FARMAT(2F10¢2s13903110) 
WRITECIIABLTs24) XKM,YKM, ICODE,KPysKPoy,KFQ 
Ge Te 50 
CALL EXIT 
END 
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COMPILED 6 BELTS 


w 


PROGRA” GFLOY 
VERSION SF oP SEPT 1572, T8 CARRECT PRYGRAM NAME IN 8UTPUT 
SaLRCE BF ACT 19,1970 


PREGRA” GFLD»s SPHERICAL HARMONIC CALCULATISN IN A 
GIVEN REGION 


INCLUDING READING OF C,S 
ssx(4) UP Te LIST DATA ON TTY DURING RUN 


¢ 


GLTPLTS REGISNAL FA VALUE IN FREE*AIR POSITION BF 
SEAG1 FORMAT 


USES SUBROUTINES ISWs FLEE 


ADNDNDANGANAADAANANANCANNA 


TIN #& 105 
TI8LT =» 108 


HUTFUT ' GFLD1 RUN» VERSION OF 22 SEPT 1972! 
TI] = ISwlee) 

READ (LIN» @) ITAPEs JTAPE 

FORMAT (215) 

PUTPUT ITAPE,JTAPE 

TREC21 

KGYR#22 

KK30 

WRITE (CL IGUTS9) 

FARMAT( IE ITSP J388T ILEFT IRIGT INC!) 
READ(LINe #) I TOP, IBOTsILEFTs IRIGTsINCG 
READCIIN»SIITAP,IBAToILEFTsIRIGT*INC 
FORMAT (5]5) 

ALTPUT [TOPs TBST» ILEFTe2 IRIGI 4 INC 
CALL FLD2A(KK,sITAPEsRKLaTsRLONG, REG) 
TAREA20 

ISURV80 

ISTA®0 

FLEV3Q00Q 

K9772#000 

GAPS*0<0 

PEPTHE9 eC 

FA899900 

PGs999e0 

TC29900 

23C8M#99900 

DEGRA=16745329E <2 

\NS2123B 

NEx#8127B 

wNe1168 

«821238 

wE #1058 





306 
43C6 
307 
-3Co 


Cf 445 
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wW81?P78 

CONTINUE 

08 402 [weIRBOTsITEPsINC 

08 402 GelLEFT»IRIGTsINC 

DLATa] 

PLANS 

RLATSDLATSDEGRA 

RL INGSDLAN*DEGRA 

KKal] 

CALL FLOP (KK, ITAPEsRLATs RLONGs REG) 
TE (ISW(4) ) 330623308, 33C6 

wRITF (1 1TOUTS307)OLAT»DLEN,REG 
FARMATCIDLAT#!,F7Je2e' CLONS'yFJee,' REGa'sFR.3) 
FABREG 

KFAsFA#{ O00 

CALL EXCTA 


C PLUTPLT AT SEAGL FARMAT 


IF ¢ ISW(26) eEGel eARe JTAPE®EGe108) IRECs6 & JTAPE#108 
aARITE(UTAPE, 12) TREC, KGYR,RLAT,RLONG, KFA 

FOO MAT(1104Xe 120 7X22F906017X015035X) 

CONTINUE 

WRITE (TIOLTs 410) 

FARMAT(ITKIS RUN CBMPLETED'//) 

ENDFILE UTAPE 

STEP 

END 
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Ts iy 


KIGHEST ERROR SEVERITYS 3» (NA ERRARS) 


PEC hE x 
AARDS WERDS 
GENERATEO Cade: 234 OOCEA (NB MEMBRY PRBTECTION) 
CANSTANTSS 7 00007 
LOCAL VARIABLES: 33 00021 
TErPS3 2 on0ce 


waeere etee” 


TOTAL PRAGRAM; 276 00114 
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C ome ILto Is MR 7S 


as Cc PRAGRAY GFLD2 
Ze Cc VERSTON AF 4 JANUARY 1972 
3e Cc VERSION @F 13 DECe 19744 TA READ CSEFFICIENTS FROM CARDS 
he ¢ VERSI8N BF 26 NOV 49748 FBR READ AND WRITE 8F GSUM FT 
Se C 
be C PRAGRAM GFLD, SFRHERICAL HARMONIC CALCULATION IN A 
7. ¢ GIVEN REGI6N 
Be & 
9- ¢ INCLUDING READING OF C,S 
106 C S§S*(4) LP Ta LIST DATA BN as DURING RUN 
11. E 
1e6 Cc BUTPUTS REGIBNAL FREE*AIR VALUE IN REGISNAL POSITIBN 8F GSUM 
13-6 Cc 
y 14.6 € USES SUBRBUTINES ISw, FLO2,GINBT 
156 C 
166 ¢ 
17. c 
18-6 CIMENSTAN TA(35) 
196 CIMENSIBN NO@W(4) 
20° CALL STAT 
21. TIN » 1058- 
eee IIOLT s 108 
23. TTAPE st 
24-6 JTAPE sD - 
25. KTAPE S105 
266 NOLTsO 
276 C PRINT CATE AND TIME OF JBB BN HEADING 
286 CALL TADAY(NBW) 
256 wRITE(TI8L%,13) N@k 
30. 13. FORMAT(1Xs4A4) 
B1e C 
326 SUTPUT + GFLD2 RUN» VERSION OF 43 DEC 41971! 
33. INI T#sISw( 92) 
34, KKs0 
35° CALL Pe ake vee nce, 
36° CALL GINO@TCITAPEsLTAPEs KKs KGDAsKGMB, 
37. 1 KGYR,KGHM, IDIFs IS8RCe+RLATs RLONGZELEV 2 K977s6BSG, 
38° 2 IDEP,FA,BGs TC, IELCe IGCeRFAs TREGC2IFFCs IAs IFBC) 
39. Cc 
4Q- C 
41e C READ INPUT DATA 
“Oe & -s 
43.6 10c CONTINUE 
44e KKal 
456 CALL GINO T(ITAPEsuTAPEs KKsKGCAsKGME, 
46s 1 KGYR,KGHM, IDI Fs ISORC»RLATs RLONGSELEV 4 K97700BS Ge 
47-6 2 IDEPs FAs BGr TCoTELCe 1GCaRFAs TREGCAIFFCs TAs FBC) 
48> IF (KK#9) 12025404120 
496 12@c CONTINLE 
50° CALL FLD2(KKs ITAPEsRLATsRLONGs REG) 
51. RFASREG 


32° c 
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53° Cc IREGC = 1 F8R SAB MODEL EARTH 1969 C@EF'S FOR INTL GRAVITY FERMULA 


54e 8 : 

Shs 4 IREGCs1 

56. KKs=2 

57. CALL GINSTCITAPEs UTAPEs KKs KGDAs KGMB, 

58s 1 KGYRsKGHM, IDIFs ISORC*+RLATs RLONGSELEVsK97728B8SG_ 
59+ 2 IDEP,FA,BGsTCylEL Ce IGCaRFAs TREGCyIFFCys TAs IFBC) 
60. NILTSNOUT+L 

61. 155 G8 T8 100 

62> 54c «RITE(T18UT2545)NOUT . 

43+ 545 FERMAT(+1EQF FAUND 8N INPLT TAPE '2110) 

64. N8LTs0 

656 END FILE UTAPE 

665 staP 

676 END 
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KIGHEST ERROR SEVERITY! O (NS ERRARS) 


SATS Bee i er Sd TERE TESS git a i a ARS Ra 


bEC HEX 
WARDS wARDS 
GENERATED CALF: 176 CooBO)}=—s (N@_-« MEMORY PRATECTION) 
CENSTANTS3 1 pees | 
LOCAL VARIABLES? 69 0004 
TEMPS: Cc ccoo0 | 


; TOTAL FRIGRAM;3 - 246 COOF6é 
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260 
276 
286 
29° 
30° 
gle 
32° 
33° 
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39° 
40 
4ie 
420 
43° 
44e 
450 
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480 
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57° 
58. 
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PROGRAM GRAFGo 
(SESE R EERE REE LEST ESE EER A EER SER ER EERE RE RES 
BUTPUT ' GRAFG2 RUN, VERSTON BF 11 ALG 75! 


TRESERE LER SEEE ESET ESTEE EEE ERE ET ESE ET ER ET EE) 


VERSION 11 ALG 75 TE& ADC BUTFUT OF NUMBER OF RECBRDS 
VERSION 11 APRIL 75s ACD TEST FOR SPACECRAFT ALTITUDE LUNAS DATS 
VERSION gS AFRIL 75, TO aCD SSW(3) FOR INFUT BF LUNAR DATA 
VERSION OF 19 JULY 1973, TA MOVE LABEL AWAY FROM JOB NS, 
VERSI6N OF 27 APRIL 1973, ADDING LABEL AND N8Sw DATE 
FROGRAM GRAFGe, PLOTS SAE VARIABLE VS AN@TFER 
ALS® KAS BEGINNING AND END CATE CHECK LOGIC 


SSh(Q) #1 T@ SUTPUT VALLES FER TESTING 

SSW(3) *= 1 70 USE GETL FAR INPUT BF LUNAR DATA 

SSw (4) #1 T@ READ SVEC ALTITUDE BBUNDS FAR LUNAR DATA, 
(AFTER READING AREA BOUNDS), ANC T@ PROCESS BNLY 
CATA WITKIN THESE BAUNDS. 

$SW(7) «1 TA JNPUT NEW AREA BOUNDS FOR EXT PLAT 

SSW(&) #4 T@ SUPPRESS PLOTTING GRIC 

Ssw(10) #1 78 START A NEW GRAPR 

SSw(i2) #1 T@ LIST DATA IDENTIFICATION 

SSW(13) #1 TA ANA@TATE PLOT POINT WITH DATAW 


T6 STAP THE RUN AFTER LAST DATE BLOCK HAS BEEN PROCESSED, 
SET ISTCA OF NEXT STARD/END DATE CARD # 99 


CIMENSI6N IBUF (1000) 
CIMENSTON NOW(4) 
DIMENSTEN LABEL (20) 
INREC = 0 

IGREC = oO. 

TAREC =# O° 

TPREC = 0 


PROGRAM TESTS FAR AREA AND GRAPH LIMITS 


USES GRIDGsSPATs ISWs STATe GETG»GETL 
ENCI@, EVIL»SHTV» AND CALCOMP ROUTINES 


TIN = 105 
IIOLUT = 108 
REAC IN INFORMATION FOR PLOT LABEL 
INPTSZIN 
READCINPTs5022) LABEL 
FORMAT(20A4) 
WRITE(II@UTs5¢023) LABEL 
FARMAT( 1Xs20A4) 
INITIALIZE PSEUD@*SWITCRKES AND PLOTTER ROUTINE 
CALL PLOTS (IBUFs #14000) 
INIT # [SwWle2) 
PLNUM#120 
PRINT DATE ANC TIME OF VOB BN HEADING 
CALL TADAY(N@W) 
WRITE (II@UT#144) NOW 
1° FORMAT(1Xs4A4) 
CALL STAT 
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620 
636 
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CALL SETSKP(IND) 


PLT(NX) FAR X VARIABLE 

PLTINY) FOR Y VARIABLE 

PLY(NZ) FOR Z VARIABLE 

PLT(NW) FOR W VARIABLE 

® ENGINEERING UNITS PeR INCK ON Play FaR X Oy ReCrrieN 
ENGINEERING UNITS PER INCH ON PLOY FOR y DIRECTION 
SAME FOR Z DIRECTION 

SAME FOR W OL[RECTION 

ANGLE FOR DATAW ANOTATION 

PLOTTER CONTROL CODE FOR CECIMAL PAINT IN DATAW ANOT 
SPACING IN DECIMAL INCHES FOR ANOT IN X OIRECTIEN 
SPaCING JN DECIMAL INCHES FAR ANOT IN Y DIRECTION 


REAC (IINs»s 2) ITAPE, NXy NY¥p N2e NWs IDEC, KPT, KHT 
FARMAT (815) 

GUTPUT ITAPE, NX» NY» NZs NWy L[0ECa KPT» KKT 
READ (IIN»s 3) XFAC, YFAC, ZFAC, WFAC, ANGB, XINC, YING 
FORMAT (7F CeO) 

OLTPUT XFaCs YFaCse ZFaCy WRaCs ANGB, XINCs YINC 
ZZ8KPT 

ZHTSKPT#KET 

HGT 80 e07#ZhT 

XINCexXINC#ZZ 

YINCSYINC#2ZZ 

XFACSXFAC/Z2 

YFACSYFAC/ZZ 

ZFACBZFAC/ZZ 

WEACeWFAC/22 

READ (IINs 4) TOP, BET, DLEFT, RIGT 

FORMAT (4F1000) 

BUTPUT TOP, BOTs OLEFT, RIGT 

TOP YSTOP/YFAC 

BOTYSBOT/YFAC 

DLEFXsOLEFT/XFAC 

RIGTXsRIGT/XFAC 


Nel 
Re ab (IINs 5) IDEGs AMIN 
FORMAT (15s Fy0¢0) 
RADN#OMTBR(IDEG, AMIN) 
G6 78(110212001300140)aLN 
RTOBP RADON 
LNee 
G6 TO 6 
RBOTeRADKN 
LNe3 
G6 T8 6 
RLEF TeRAON 
LNS4 
G6 76 6 
RRIGTeRADN 
CONTINUE 


READ SPACECRAFT ALTITUCE (SVEC) BOUNDS IF SSWl4) 94 


IF (ISw(4)eEGeO) Ge 78 407 
REAC (1INs4O3) BSVECsTSVEC 


BSVEC 1S LOWER ALTITUCE LIMIT,» TSVEC IS WPPER 
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12Ce 403 FORMAT (2F 1003) 
121° C SET NZ = TRKAT FAR SVEC 
122° NZ = 1 
123° 407 IFLAG # © 
1246 READ( TIN, SIISTDAsISTMB,ISTYR, ISTHM, LENDA,ITENMB, IENYR, LENHM, I SKP 
125° S F@RMAT( 31201425X23T201425X515) 
126°. IF (ISTCA*9S9) 40923054305 
127° 40S WRITE(IIAUT»6365) ISTDAsISTMGsISTYReISTHMs TENDAs IENMGs IENYRe 
128. 1 IENRM,ISKP 
129° 6365 FORMAT('GRAFGat START CATE 's3laelae's END DATE ‘ssloeinn's ich 
130° 1'aJ4) 

~131° IF(ISKPeEGeC) GB TE 8 
132° CALL SKPREC(ITAPE,ISKP) - 
133° Ge 76(999,8,999,999,995,999) JNO 
134. 8 CONTINUE 
135° 1c WRITECITIOUTs7)PLNUM 
1366 7? FeRMary('START PLAT NUMBER ® ',F4e0) 
137- ~=«¢S CALL WHERE (X8RGp YORG) 
138° CALL WRERE(XBRG,YERGs, REACT) 
139° CaLL PLOET(XERG,s, YERG, =3) 
14Ce C = ANKOTATING PLOT NUMBER 
141° CALL NUMBER (oe Qs 000s 0014s PLNUMaQeOeei) 
142° C 
143° Cc AN@TATE PLAT WITH LABEL AND DATE 
144eo Cc 
145° CALL SYMBBL (-30920°920914sLABEL290¢°280) 
1460 So5¢ CALL SYMBOL (91°C, 020209C7sNOWs 90% 16) 
1476 5058 CALL FLET(Ce0s000s93) 
148° iq 
1496 Cc MAVING PEN T8 ORIGIN BF PLOT 
15Ce YTse(BAT/YFAC) 
i5ie IF (YT)2054210s210 
152> 205 YTs0e00 
1536 216 =XTse(CLEFT/XxFAC) 
1546 IF (xX7)2152 2200220 
1556 215 XTsCeC 
1566 22C = xTexTe1e0 
1576 YT sYTs1¢0 
1586 CALL PLOET(XT»YTs3) 
1596 CALL GRIDG(2Z,hGT,XFAC, YFACs TOP sBET,OLEFT,RIGT) 
16Ce PLNUM ® PLNUM + 10 
161° » 15 CONTINGE 
162° C START NEW PLOT 
163° 2e =iIF (18(10))24,25224 
1646 24 CALL PLOT(8*#0,000,83) 
165° G6 Te 10 
1666 26 CBONTINLE 
1676 30C =IF(ISw(3)eEGeC) GO TS 302 
1686 CALL GETL (ITAPEs NXs Nye NZsp NWe DATAXsCATAYsDATAZ,DATAWSRLATS 
169° 4 RLONGs SDA» uMOs JYR»s whM, TEOC) 
170° GB T8 304 
171° 302 CALL GETG CITAPE, NX» NY¥s NZyg NWy CATAX,CATAYsDATAZ,DATAW,RLAT, 
172+ 1 RLENG, WDAs oMOs SYRe wh, TEBC) 
173° 304 IF(1E8C)3502350,305 
1746 G EGF @R EBT ENCBUNTEREC DURING READ oe CLIT 
175° 305 CALL PLOT (XXs YYs 999) 
176° WRITE (IL6UT,1020) INRECs IGRECs TAREC, IPREC 
177° 102c FORMAT('NUMBER RECORDS INPUT © ‘olo/e 
178. 1 "NUMBER RECORDS BLT BF GRAPH BOUNDS & tale/s 


179° 2 'NUMBER RECORDS BUT BF AREA BOLNDS « "gloss 
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i 180° 3 "NUMBER RECORDS PLOTTED ® ',]) 

2 181° CALL EXIT 

i 182 C ChrECKING FAR BEGINNING DATE 
183- 35c CONTIAVE 
184. INREC @ INREC © 3} 
185-6 KGDA » JDA 
1866 KGMBe MO ) 
187.6 KGYReyYR . 
1886 KGHM® WM : 
189° pee CONTINUE ‘4 
190° IFLAG 18 a FLAG 78 ALLOW SKIPPING THE FIRST CALL YO FINO 
ee C IF we WAVE ALREADY FOUND THE STARTING DATE 
193° IF(IFLAGeNEeQ) GO TO 182 7 
1946 CaLL FINO(ISTOA,ISTMOB,ISTYRs, ISTHM,KGDA, KGMG, KGYR, KGHM, INDK) 
195 IF (INDKeEGe*y) G8 TA 300 
196° IFLAGs4 
1976 182 C@NTINUVE 
198 IFCIENYReEGeQ) GO TO 884 
199° CALL FINO(TENDA, IENMOy, IENYR» JENHM,KGOA,KGMO,KGYR,KGHM, INDK) 
200¢ IF(INOKeEGe4) GA TH 995 
201° 851 CONTINUE 
202 852 CONTINUE 
203° C ChECKING IF DATA WITHIN CHART BeUNCRIES 
204° 85 IF (ISw(o) 10201040102 
2056 102 WRITE(T IOUT, 103) RLAT»RLONG, RTOP,RBOT,RLEFT,RRIGT 
2066 103 FORMAT(6E1205) 
207° 104 IF (RTOPeRLAT) 4002100086 
208° 86 IF(RLAT®REGT) 100/88,88 
209° 8&8 [FC(RLOENG*RLEFT) 100290290 
210° So IF(RRIGT*RLENG) 1000100492 
2ile C CATA WITHIN BOUNDS 
212° Se G6 Te 35 
213° C CATA ALT BF AREA BEUNDS 
214s 10C JAREC # IAREC + 4 4 G6 TA 890 
215¢ 35 CONTINUE 
216° C 
217° C CHECKING JF LUNAR DATA IS WITHIN ALTITUCE BOUNDS 
218° C 
219° IF (ISW(4)eEGeo) GO TE 45 
2206 IF ((DATAZ*BSVEC) eLE*0) GO Te 890 
221° IF ((TSVEC*DATAZ)eLE°0) G@ TE 890 
2228 45 XxX @ CATAX/XFAC 
223° YY # DATAY/YFAC 
2246 C CHECKING IF DATA IS IN GRAPH BBUNDS 
225° IND#9 
2266 IF (TOP YeYY)50,50, 52 
2276 5c YysTOpy 
228° INDed 
229¢ Se IF (YYeBOTY) 54954060 

' 230° 5y YYeBeTY 
ff 231° INDs1 
' 232° 6C IF (XXeDLEFX) 62162066 

233° 62 XXsOLErxX 
234 IND#4 
235° 66 IF (RIGTK#XX)68168069 
236° 66 KXX#eRIGTX 
237° IND#i 
238° C Ip INC =» 1 DATA POINT IS BUY BF GRAPH BOUNDS 


239° 69 IFCINDeEGe1) IGREC » IGREC + 1 4 GO 16 890 
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8C CALL PLOT (XXsYYs3) 
CALL SPAT(XX,YY) 
IPREC 8 IPREC © 1 





Te (3Sy(13))82,890282 

82 XT aXX4XINC 
2456 YTBYYSYINC 
246, CALL AUMBER (XT, YT, HGT, DATAW, ANGB, DEC) 
24760 | CALL PLOT(XX,YY,9) 
2480 89¢ CONTINUE 
2496 90C IF(ITENYReEGeQ 0) 98 84 
2806 CALL FIND(IEN so ENROS TENYR, TENHM, KGDA,KGMO,KGYR,KGHM, INDK 
251i JFCINDK #EG+0) Ge Te 940 
252° 68 Té 150 
253° 94¢ XTERIGTX#5eQ 
25460 YTSBOTY 
255e¢ CALL PLOT(XTsYT,3) 
2560 IF (ISW(7) 1402460206 
257° 954 Ge Te 150 


2586 995 WRITE(3IOUTZ996) KGDAsKGMO, KGYR» KGHY 
259° 996 FORMAT('END DATE PASSEC's2X031 2014) 
260° CALL PLOT(XXsYYs999) 

261° CALL EXIT 

262° 999 WRITE(IIOUTs998) IND 

263° 998 FERMAT('ERROR IN SKPREC, INDs!s13) 


264° CALL PLOT(XX,YY,999) 
2656 CaLL EXIT 
2666 i5c G66 Te 18 


2676 END 
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eo  FeR YSFUT CLev IN PETERS 
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61° IFFCaO : 
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EXTERNAL SUrPRRGR aS RE GLIREDS 


Sa Ahr Case SANGRE Tage Bie 


EVIL EXIT GINOT GINTF 1C!4G ISw NAVI‘ 
STAT Peasy Fiqoe_ F34903 F4405 F24qo6 F408 
Ming MEOC ORCNREAN PBCOSRIT GENOFILE  SENrleL INITIAL 
SIRDATA a] Tah gPRINT aPwRER 


HIGRKEST EREGR SEVERITY: 7 CN@ EREE Sy 


NEC HEX 
IRS waROS 

GENERATED Cues 423 CO1A7 
CONSTANTS? 26 OCQIA 
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FRAGRAM GSTaG 
PROGRAM GST6G, CONVERTS SEAG, FOERMAT TA GSuM FORMAT 


VERSIO6N 25 yUNE 75. TO ADD GUTPUT STATEMENT 
VERSIAN 13 wAN 75 TO READ IJREC82 
VERSION BF 4 BCT 1971, TO LSE GINBT FER BUTPUT 
VERSI@N BF 2C YANLARY 1974 


SIGMA 7 VERSION HANDLES SINGLE REEL INPUT AKLY 
SSw(t2) yr TO LIST DATA IDENTIFICATION 

USES BICOR, STAT» ISWs EVIL 

CALLS STAT» mCVOL» GETCCE FROM ACCAUNT 3 LIBRARY 


CIMENSTON MAG(2) 

DIMENSJTON MAG1(5),MaG2(5), sBLK(21) 
CIMENSION 1A(35)91Z2(9)—916(35) 
CIMENSION NOw(4) 

IIN = 105 

IreuT = 108 


PRINT CATE AND TIME 6F yeE ON HEADING 
CALL TADAY(NOW) 
WRITE(IIOUT,13) NOW 
13. FORMAT(1Ks4A4) 


BLTPLY ' GST6G VERSION @6F 25 WUNE 781 


215 IREcis1 

FOR MULTIFILE MAGTAPE INPUT 
NEF aq 

FeR WRITING GBF BN VTAPE 
IFLAG=4 
CALL STAT 
INN « ISW(#2) 
NZER@8Q9 
KGDae # NZERG 
KGMBGaNZERG 
KGYROsN\ ZERO 
KGHMA aN ZERE 


PTETTTTITILIVITITVIITT IIIT TTT IiiritiTt rTititittiittt 
ITAPE = INPUT TAPE 
wTAPE & BUTPUT TAPE 
ITAFE » | 
wTAPE » 2 


SHERHHERHEHBHEHAHERREHEHHHEHEHEEHHHREHHEEHHEHHEHHEHEHE EES 


IDIF ao 
ELEVageg 
TC#9909 
REAsQ +0 
TREGC8Q 
IFFC87 
TFEC8O 
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60° NRE. # Q 
61° ICFECK ® 0 
62 ABUT#0 
63° CEGRAs1+©745329E «2 
64s C 
65° C ISORC » SOURCE NUMBER 
666 C t0CeD * O FAR 1D BY Date, 1 FOR 1D BY STA NBe 
67e C IELC s ELEVATIGN CODE 
68e¢ Cc I1GC = GeMETER CODE 
69° c BIAS « MGAL BIAS 
Joe C NF ILE s NUMBER BF FILES T@ Be INPUT 
71. C 
F 72° READ (IINs2) ISORC, LOCC, LELCs IGCs BIAS 
4 73° 2 FORMAT (415s FiQeQ) 
; 74e BUTPLY ISBRC, ID0C8D, IeELC, IGC, Blas 
75° REAC (IIN»s 5) NFILE 
766 5 FeRMAT ( 15) 
q 77° WRITECIIOUTs 7786) NFILE 
rf 78 7786  FORMAT(1GST8G? NFILESt, 15) 
: 79° IF (1DC@D) 23022262230 
. | aCe 226 KGDAsC 
| Bie KGMAe¢ 
Pt 826 KGYR®C 
. | 83° C 
pe | Bue Cc 
; &5e¢ 23c CONTINUE 
| 86 KK8Q 
' B76 CaLL GINOT(ITAPE,wTAPE,KKyKGDA,KGMB, 
Pf BBe 1 KGYRs KGEMs IOI s ISORCyRLATs»RLONGSELEVs kK9774 OBSGe 
p | age 2 IDEPsFAsBG, TC, IELCsIGCoRFAs LREGCsIFFC, SAs IFBC) 
. | 90¢-  C 
S| 91° C 
a 92° C 
= | 93° C ReEAC INPUT DATA 
| She 50 CONTINUE 
95¢ Se REAC(ITAPEs36¢) IRECysKGDA,KGMO,KGYR»KGHM,IDIF, 
i S66 1 RLaT,RLONG,KVN,KVE,K9S77, JAGR, KFa,KBG,KCVN, 
i 976 2 RE VErKGDH An TOG sMPPHAg ay eMagte) ayer YS 
| 98s 360 FORMAT(I4s3laoe 4st gsaFSebenlSelaelacS5 1 galas 
} 99-6 1 ye,t1,14,15) 
100° CALL STAT(1) 
i 101° CaLlL eVyb(rrel7,7,1Bal, KGCDas, KGMG6, KGYRG, KGHMe } 
lo2e OC [BAC =» «=» PARITY OR FORMAT ERROK 
ipae  G IBAC © o» READ WAS 8K 
; 104, C 1BaC * +, END OF Fyle OR ENC BF TAPE ENCOUNTERED 
105° Ip (1pAD) Sc» 53 875 
106« S53 IF(IREC1*+«EGe2) G8 TA 70 
; 1076 IF(TREC1 eNE~ 1) GB TB 60 
i 108° IF(ICRECKeEGe4) GB TO 7¢ 
109+ BLTPUT! eases INPUT IS IN 1930 IGF #eeees 
110° ICKECK = 1 
1iie G6 TA 70 
112° 6c IFC IREC1#5)50s962950 
113° 62 REAC(ITAPEs64) [REC9,1Z, 121, 1 TEST 
114° 64 FBRMAT(14e213014) 
115° IF (I TEST*#6563)58925652580 
116° 566 WRITE(II6LTs570) 
417° 57¢ FORMAT(HEBR?) 
118 Cs PAUSE 400 


119° cs G6 Te 50 





rmanezwese mapa et A OR OTN LT EEOC ELLE LLL DL DOLL ELLE LIL ATE I 
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120° C EVIL KAS FOUND AN END 6F FILE MARK ON INPUT 
121. 575 IF (NEF « NFILE) 5762 8774 577 
122° 576 NEF =» NEF + 4 
123° CALL MCVOL (I TAPE) 
124° G6 Te 5Q 
125° c END 6F INPUT DATA, REGLIRED NO. OF FILES NOW PRECESSEO 
126° 577 . LF CIFLAGeNEe4)G8 TO 578 
q 127° END FILE TAPE 
i 128° 578 ARITE(T10UTs579)NRE js NOUT 
i age 5759 FORMAT ('tEND BF PRACESSING!,/, 
; 306 1 "NUMBER @F ReCeRDS REwECTED BECAUSE OF INVALID GRAVyTY =',16 
i 131° 2 /s "NUMBER SF RECBRDS BLTPUT #'436) 
i 132° CALL EXIT 
133° 58c. IF CITEST#6665)68:65268 
134¢ 65 WRITE(JTIOUTs6C1) 
135° 601 FORMAT('E6D') 
136° G68 Te 575 
137° 68 WRITECIIOUT69) 
138. 6S FORMay('TRECis9!) 
139° G8 Te 50 
140¢ 7¢ «=CONTINGE 
1416 KGDA@eKGDA 
142° KGMBe#KGMA 
143. KGYROsKGYR 
14460 KGHMOakKGHM 
1456 C 
146° C CrECKING GRAVITY FAR INVALIO DATA 
147.6 C 
148. IF (KS77eLE*0) NREQ = NREY #43 GO TO 5O 
149° IF (KF AeGE*9999) NREV® SREY #43 GO TE So 
150¢ 6BSGsFLOAT(IOGR) #001 
151° FAs FLOAT(KFA)#Qe1 
152° BGSFLOAT(KBG) #o 04 
153° 1OEPskCOM 
154° CALL BICER(k977,@BSGsBI AS) 
155° IF (FA#990°0) 85087287 
156¢ 85 FASsSFA+BI AS 
157° 87 IF (BG=990°0)88s90290 
158 8&8 BGSBG+BIAS 
1596 9C CBNTINLE 
16C° C GROLPING VARIABLES FAR BUTPLT UNCER ARRAy JA 
161° ENCODE (352410 JZ) KVNs KVEsKCVNs KCVE g KET VO es MTDC, MT 
162° 410 FORMAT(415,15,13, 12,5) 
163° CALL UNPKBY(IZsIws35) 
1646 De 420 Je1435 
165° TA(S) eISL(IW(y) 224) 
1666 42@c CONTINUE 
| 167°" 
' 168° Kkee2 | 
169. CaLL GINOT(ITAPE, wTAPE, KK, KGDA,KGMO, 
:) 170° 1 KGyReKGkMs IDIF, ISORC»RLATs RLONGs ELEV)K9770 OBSGe ] 
: 171° 2 IDEP, FAs BG, Ce TEL Ce IGCeRFAg LREGCeIFFC, LAs LFBC) 
172° NOUTsNOUTO4 
i] 173° G8 Te 50 
43 174° Cc WRITE ENO OF FILE RECBRE 
475° 999 END FILE TAPE 
176° WRITE T1OUT, 330) KGDAsKGHO, KGYR, KGH 
177° 330 FORMAT('DATA BEFORE EORe ',373,15) 


178° CALL EXIT 
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BLANK C6MMBN (C hORCS) 


INTRINSIC SUBPREGRAMS USED! 


FLOAT TSL 


EXTERNAL SUBPROGRAMS REGUIRED; 


BIC8R EVIL 
UNPKBY Fsici 
~30é M38C 


SIBCATA SI6LLSA 


EXIT 
Fi10e 
gecOREal 
SITAR 
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GIN6T 
F3103 
9BCCWRIT 
SPRINT 


FIGHEST ERROR SEVERITY: o (N@ ERRORS) 


GENERATED Cape: 
CONSTANTS: 

LOCAL VARIABLES: 
TEMFS3 


TOTAL FRAGRAM: 


CEC 
hORDS 
“487 
6 
176 
0 


€69 


hEX 
WORDS 
CO1E7 
Cocdé 
cocko 
cococ 


coesD 


1Sw MCVOL STAT 


Ft104 F3105 F2106 
QENCBDE SENDFILE  gENDIOL 


-9STOP 


TEDAY 
Fi10R 
9INIT! 
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416 
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an 


aoa ao 


aaan 


205 


PROGRAM GSTeG67 


PROGRAM GST8G67 MSO OF GSTOG TE GO 1967 FERULA AND 71 DATUM 


CHANGE WHERE NECESSARY 
MOD FROM GSTOG BF 26 JUNE 75 
PROGRAM GSTeG, CONVERTS SEAG] FORMAT TO GsUM FARMAT 


VERSION OF 10 MAR 76 TO Fix JRECC FOR L/P AY 67 
VERSION OF gs AUG 78 TO DO 67 FORMAULA CONVERSION 
ANO TS WRITE GSUM 6/P BLOCKED BY 80 
SUTPUT 'GSTCG67 VERSIGN 10 MAR 76! 
VERSION a8 JUNE 78, TO ADD BUTPUT STATEMENT 
VERSION 13 JAN 75 TS READ IRECS2 

VERSION OF & OCT 19712 TO USE GINOT FOR OUTPUT 

VERSION @F 20 JANUARY 1971 


SIGMA 7 VERSION HANOLES SINGLE REEL IN@PUT ONLY 
SSW(12) UP TO LIST DATA JOENTIFICATION 


DIMENSION [BUFOT( 328,50) 
OIMENSION MAG(2) 
DIMENSION mAQGi(S)emMAG2(S) eT OLK (21) 
DIMENSION 1[A(95)e3Z(9)eTWi 38) 
OIMENSION NO@W( 4) 
TIN @ 105 
IIGUT » 108 

Kiley 

KOSe2 


PRINT DATE ANO TIME @F Yy8a ON HEADING 
CALL TODAY(NQW) 
WRITECTIOUT,13) N@wW 

13. FORMAT(1X,4A4) 


RADEGS57¢29858 


215 JRECis4 
FOR MULTIFILE MAGTAPE INPUT 
NEF ed 
FOR WRITING EGF ON JTAPE 
IFLAGetL 
NROUT#O 
INN © [8W(e2) 
TAKE veo 
NINsO 
NZERG sO 
KGDAS » NZERC 
KQ@m@GaNZERO 
KGYROeNZERS 
KGHMOaeNZERO 


SHSOPOSSHHHHHHEHHEHEHEHSSEHESHKHEHHOHEHHHEEHEHHREHEROEBES 
ITAPE e@ INPUT TAPE 

JTAPE & OUTPUT TAPE 

ITAPE @ 1 

JTAPE © 2 
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606 c POS TIT TI ITT ISI II LIS III Iii iiritivrrrrrrrere trey 
6ie C 
62e¢ IOIFeO 
63¢ ELEVeded 
646 TRECe2 
65° TCe99e9 
660 | RFAs8Qe0 
676 TREGC#O 
68e IPF Ce7 
69e IF 8Ce0 
706 NRECTEO 
— The «Kao 
726 NREY § 0 
736 ICHECK = 0 
THe N@UT#O ? 
756 DEGRAS1 0 748329Ee2 
760 § 
77e ISORC = SOURCE NUMBER 
786 Cc yOoCeO = 0 FOR {0 BY DATE, 1 FAR [0 BY STA NG, 
796 G TELC » ELEVATION CODE 
80°« C IGC s GeMETER CODE 
Ble C BIAS & MGAL B14S 
826 Cc NFILE @ NUMBER OF FILES T@ BE INPUT 
836 C 
Bue READ (IINg@) ISORC, OCOD, TELC, 1GCy BIAS 
85 2 FORMAT (435s F10*0) 
B60 BUTPUT ISORC, 10C80s ELCs IGC, BIAS 
87° READ (TIN» §) NFILE 
88-6 5 FeRMaT ( 7:8) 
890 WRITE(II@UTs 7786) NFILE 
90° 7786 FORMAT(1QGSTOG!t NFILEers ls) 
91° IF ( yOCad) 23022262230 
92¢ 226 KGDA8O 
93° KGMO86 
G4. KGYReO 
98-¢ ¢ 
96¢ C 
976 230 «6CONTINUE 
9860 c 
99e 3 
100¢ 
104° C READ INPUT DATA 
102° SQ CONTINVE 
103° SQ READ( I TAPE, 360s ENDSS75eERRESC) TREC, sKGDAsKGMOs KGYReKGHM, IDIF, 
104¢ 4 RLATsRLONGs KVNe KVE 0 K9772 TOGR»KFAsKBGsKCVN, 
1086 2 KCVE, KCOMsMTOC a MTs MAG(1),MAG(2) ,KETVOE 
1066 360 FORMAT(S103320 THelZeer9e6e2ISsl Fol 4eS1S013, 
107% # Taetiel4e1S) 
108-6 IF (TREC1+EQ.2) GE TA 70 
1096 TFECIRECLeNEc1) GYTPUT 'JREC NE 1 OR 2t'y6yTPyT NREQsNROUTSNGUTISTSP 
110° c CONVERSION TO 67 
111. 1G0BSe(K977910000) *18GR 
1126 1q08S8e1{ges8Sse140 
413° K97781G68S 710000 
114° 18GR¢1d9684K977¢ 10000 
115.6 DGO9 p20l1F S*(SINCABS(RLAT) #02) ) 
1166 KOG@ IF Ix(0q#ided) 
417° TF (KFAcL 729990) KFAGKFASKOG 
118-6 - JF (KBGeoL 709990) KBGeKSG4KDG 


1196 a6 Te 70 





} 
| 
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| 120¢ C END OF FILE 
; 12ie 575 IF (NEF @ NFILE) 8769 S778 577 - 
H 1226 576 NEF @ NEF © 4 
! 1236 CALL MCVO8L (ITAPE) 
; 1246 Ge Te SO 
} 1256 c END OF INPUT DATA, REQUIRED NO, OF FILES NOW PROCESSED 
126+ | 577 IFCIFLAGeNEe1)GO TS 578 
1276 C WAST BUFF SUT 
1286 IF(NROUTeCEQ*O) Gu T8 1577 
129° CALL SUFFER BUT( UTAPEs Os I8UFOT( 461) sNRQUTe32) 
130° 1577 CONTINUE 
131° ENO FILE JTAPE 
132° 578 WRITE(110UT2579)NREQs NOUT 
133° 579 Fe@RMayT (TEND OF PRACESSING!,/, 
1346 1 'NUMBER CF RECOROS REVECTED BECAUSE OF “INVALID GRAVITY etylés 
135-6 2 /e'NUMBER @F RECEROS BUTPUT wt, 16) 
436° CALL EXIT 
137° 580 IF (I TEST# 6665) 682 65768 
138-6 65 wRITE(I16yTs601) 
139° 601 FORMAT('EGD!) 
140° Ge Te 575 
141° 68 WRITE(II@UTI69) 
1426 69 FORMAT('IRECis9!) 
1436 Ge Te 50 
1446 70 CONTINUE 
1456 KGOAG®KGDA 
1466 KGMBG8KGMe 
1476 KGYRUeKGYR 
1486 KGHMG aKGHM 
4 1496 C 
} 150° C CHECKING GRAVITY F@R INVALID DATA 
1516 C 
1526 IF(K977e¢L E00) NREY @& NREY #1) GO TO 50 
153° IF (KF AeGE 9900) NREWJs NREWY #1) GS TS 56 
154%. DLATSRLAT#RADEG 
1556 PLATSDLAT#90 0 IL TKEVSPLAT 
1566 OLONGSRLENGSRADEG 
157.6 PLONGEDLO@NG4180.) LGKEYSPLONG 
1586 OeSGeFLOAT(IOGR) #001 
159° FAS FLOAT(KFA) O04 
1606¢ BGeFLe@aTiK8G)*#Oe) 
161¢ IDEPe COM 
162° CALL BICER(K97729BSGs BIAS) 
163° IF (F 4099000) 85,87,87 
1646 85 FASFASBIAS 
165° 87 «UF (BG#9909¢0) 88290090 
1666 8&8 S8Gs8G*SsAS 
167° 90 CONTINUE 
168° C GROUPING VARIABLES FOR SUTPUT UNDER ARRAY IA } 
169° ENCODE (352 410, TZIKVNAKVE gs KCVN, KCVE,KETVO,NTOC,MT 
170° 410 FERMAT(4[501501301205X) 
171° CALL UNPKBY(IZsIWs385) 
172° DS 420 J#1s35 
1736 TAC JI BTSL CCIW) oc? 
174 420 CONTINUE 
175° C 
1766 IF (NROUTCEQeSO) CALL BUFFER BUT(JTAPEs Os IBUFBT( 1013216002 JKEY) 5 
1776 * NROUTSO 
1786 NROUTENROUTSL 


179° ENCODE (128010204 IBUFOT (1 sNROUT) »NE) 
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1806 * TRECs ISORC, KGOA, KGMG, KGYR, KGHM,OLAT,OLONGLELEV, 
181+ * K977 2 OBSGs LDEP a FAs BGs TCeIlEL Ce IGCeRFAs IREGC, 
182-+ bd IFFCa TAs LT FBCoLYKEYVoLGKEYs LAKEY 

183-6 1020 FORMAT( TL eT 4e FI 2a Los 2F Sesh 7e2sl3eFGe2e tS, OF Keisha! 
184- bd Z2lAeFGetelisl2e3BAleixolioas3el2) 

185° NOUT eNBUT o4 

1866 Ge Te $6 

1876 Cc WRITE END OF FILE RECORD 

188-6 999 END FILE JTAPE 

189-6 WRITE (J 10UT23390) KGDAs KUMOBsKGYR, KGHM 

1906 330 FORMAT(IDATA BEFORE EOKe '43135,18) 

191. CALL EXIT 


192-6 ENO 
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211 E 
kf Le Cc PROGRAM G30CP 
20 Cc VERSTAN @F 4 MAY 75 TS ZERO EVERYTHING IN SJGHT H 

q 2 Cc VERSI®N BF 17 APR WR FBR XEROX CPV CAMPATIBILITY cia 
; 4e Cc VERSTAN., FER 75 To INCREASE PRINT SPACE FAR RHB#Z r 
Se Cc VERSIAN 5 FeB 75 18 EASE INTERFACE WITH I/P PREP 24 
6. c BUS VERSIAN BF 22/7/74 TA CBMPUTE PATENTIAL FRAM BeDY : 
7e C SUTPUTS HEIGHT °F SEA (+ CBKN) AND MGAL DIFFERENCE } 
Re € VERSIAN BF 2¢ MAY 74 T@ INCREASE RESBLUTION BF Z i 
9. C VERSIAN BF 23 APRIL 73 TE INCREASE RESBLUTION BF PRINTED VALUE 8F 
106 (es wETGHT AND WEIGHTEST 
tle € VERSTHN 29 MARCH 73 TE CFANGE SS 49 5 26 TO 3885 39 
12-6 Cc VER3ISN 20 MARCH 1973 TS CALL Planet FAR RADIUS (LAG) 
13-6 C 3p FRAG FIELC PG&INTS ARE GIVEN BY Ke1eKKe CANTAURS ARE GIVE; G3DC0010 
the c BY “oy.'Q._. THE yERTICES FAR EACR CONTSUR ARe GIVEN BY leita llell G20Con20 
= 15° C CIFFERENT FSR EACH CONTSUR ANC IS GIVEN BY IPsE(M), MID(M) IS 1 G3OCgn39 
E & 16. C FER caCe CONTOUR. G3DC0C40 
E 17. € SENSE SalTCH SPTIANS 
: 1{&e € SSh (32)8Q9 FER SPHEFICAL EARTH 
19. a zi FSR SPHERTCAL Me6h 
206 c 7 FSR SPHERICAL MARS 
21° Cc s$6(99) TO BE RESERyED FOR LaTeR Use IN SUBR PLANET 
Pee COMMER UTITC Qca4 Y,URHS( Boe 44), UZEE ( 29219)eVMID( 20710) Ga0lConSq 
a3. CEMMEN XX(50) 6¥¥ (90) 1A(35) sBELP( 102) ,BEL (102) ,£(102) p¢15MA( 103) G30C0060 
q 24e C8rKSN UUC90) 202030) eUT( 30). 6G(102) #UZ2T(30)sTMM( 39) G32C0C70 
. F E56 CAMMBN L11(102)22HP (1902) 22EE (102) e2ZEE (102) aMIO (4 G30Cor8o 
FOF 26. 10? )aVv¢102) spEL (162) 4pELP (102) 2x (20220210) 2 ¥( 20220010) G3pC0030 
B&F ate CeMVeN Fc io2)sPDEL(102)sFDELP( 102) 
—— 2B DELBLE PRECISI&N RVDR»CRA,DZZ,TT, TX 
296 INTEGER BD 629C0100 
30° reece Teiet0e 
31. PELF(1)s0*0 
32° BEL( IT) s0¢0 
33. DEL (1) #000 2 
S4e CELP (LT) e000 q 
35-6 E(1)soe9 
366 F(T) aOev 
376 GG(1) 800 
386 FIl({)ac 
396 MID(1)s) 
40°« PCEL(T)2#0«0 
41. PDELF(IT) 8000 
420 RhA( 1) #000 
436 SIGMA(I) 20040 
’ 4u4e Vil) sCe% 
o 456 ZEE CT 3 aed 
466 ZZEF (1) 20°0 
47 2c CONTINUE 
‘ 4Be C8 24 Te8ts30 
: 496 IMM(1) 80 
; 50+ UT(1) 2090 
Sie UL(1) #090 
B2e UZT( 1) 8000 
536 LZU(T) 8900 
54. 21 CONTINUE 
55- C8 22 181/35 
566 TA(1) a6 
576 22 CUNTINUF f 
58. Ce 23 1sle20 


59-6 Df P& gslr1)d 





ee a ET . mes ‘i 
J, tebe 
, RELL EN NIICTLND AOE OE POEL ORES N late Rt AP A ee COR Se ce eee 


Ce ee ne ae RE NU EAE ETT AD NRT EN TE 
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606 ULIT (lad) 5Q00 
61. UMID (Tad) 2000 
626 URH3( Tad) #000 
63. UZEE(1yJ)#0.0 
646 24 CANTINUE 
656¢ 23 CINTINUE 
666 De 25 191,20 
676 C8 26 y#ls2o 
68-6 C8 27 Ksis10 
O96 XC lauaK) #000 
70. VOT aya Kk) 8000 
71. 27 CONTINUE q 
72. 26 CANTINUE i 
736 25 CBNTINUE 13 
THe C8 28 181450 i 
75-6 XX(1)80*0 
760 YY(1) #00 
77° 28 CONTINUE i 
78-6 A80+0_ j 
796 AA2C 20 i 
BO. ALPH1is0e0 ia 
81. ALPH2s0e0 5 et 14 
82-6 ANBM8Ce0 \4 
R36 ANBM1 8090 i 
84-0 BaQeo. i 2 
a5. BBeOect por Ss! |< 
B66 BNC#090 4 
87-6 BETA1s090 ‘ 5 eae A i 
BRe BETA2#O90 ls 
3 &9-6 BG20e0 ee. 
206 C20+0_ || 
: 91e CC#D00 
92 C*090 1a 
936 DELT1 #00 iE 
94e DELTes0«0 / 
95-6 CAGs e0 : ' E 
S66 D9IGGsHey 3 
976 DEGGS#0.0 | 4 
FB. DAGSeNed i 
99. DRA#0Q 13 
1006 DZZ2#0+0 i 
101. EGA#020 ta 
102. ELEV80 9? iZ 
yey 103-6 EGA#0+0 i 
1046 EMM=Qe0 1” 
1056 FAGEOeO 1 i 
1066 FELZaned | 
107+ FXaUe0 / 
108-6 FY80°d . 
109-6 FZ2®090, ia 
1106+ GAMM180°0 14 
111- GAMM28090 
112+ GSC eo : 
113. T*Cc P : 
114. IBEGGsO iM 
; 115-6 IDEPeQ i} 
} 116-6 IDIF#9 : 
g 117-6 IFLCeQ 


118-6 tFBCsc ' 





1206 
Lele 
122.6 
123. 
124.6 
125-6 
126-6 
1276 
128+ 
129-6 
130. 
131. 
132° 
133-6 
1346. 
1356 
136-6 
137-6 
S386 
139. 
140+ 
141. 
1426 
1436 
144.6 
145-6 
1466 
1476 
148.6 
149.6 
150-6 
151+ 
1526 
453. 
1546 
1556 
156. 
157-6 
158. 
1596 
160. 
161.+ 
162° 
163. 
164.6 
165-6 
1666 
167. 
168-6 
169+ 
170+ 
171+ 
172> 
173> 
174. 
175° 
1766 
177. 
17B. 
1796 
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1GCs0 
IIs 

[Neg 
INCARD #0 
INIT eC 
18UTso 
IRMAsQ 
1SORCag 
ITAPESBO 
ITST#o 
JTAPE®O 
JTSTs0 
K30 _ 
KDAsO_ 
KGHMsoQ 
KGMO8¢ 
KGYReO 
KUs0 

KKsQ _ 
K97780 
LsoO . 
LOPso 

MsO0 

MMso 

MN#0 

MBaC 
MPaQ. 

MRS 80 
MUMeQ 
NGG20 
NGB#0_ 
BBSGsOe0 
PaOe0. 
PANSMsOe0. 
PARFEZs0¢0 
PB8Cec 
PC86 00 
PDENSs0e0 
PFELZs0e0 
PIE#0.0 
PMASS80020 
PSFELZ20°0 
PSI #000 
RA8OeG. 
RHCZ80¢00 
RHBZ#O 00 
RKM®0.0 
RLAT #00 
RLENGs090 
RVAR #Oe0 
RVDRsOed 
R1#0¢«0 
R280°0 
R384 
SeceO | 
SFELZs0°0 
SkCZ8 660 
SHEZ#000 
SIGAsOeO 





SPM sOe0 
SEM1Lace6 
SSs0ec 
STV8O+°0 
TsCeO | 
TAL sOe0 
TC#DeO 
TS8000 
TT#O0€ 
TLelet 
TV800C 
TXB000 
U2090 
KeC*0 
Z2*0°0 
ZT#000 
ZUsOeo 
ZZeCed 
T2000 
L000 
FAGEOey G39C0i19 
ITAPE 243 JTAPES23 CALL STAT G20Co120 
6UTPUT 'G3DCF VERSIAN BF 1 MAY 75! 
ROs0 G30C9: 30 
Ree ay ganco:4¢ 
TALT 0168 G3DCo150 
INCARD #105 
INa3 
ITstacs yTSTsu; INITsISy¢e2); PlEs+062837 G3pC01790 
CALL C3ARR(FX,FY,RLONG,ZRLATSITST,UTST) 3 JTST#4 G30Co1 RO 
KJ80 G30C01390 
CALL GINO T(ITAFEs UTAPEs Kus KD As KGMB A KGYReKGHMs IDI Fy, IS8RCARLATS G20C0F9 
1 SLOENG,ELFV,K977, 9BSG, IDEF,FAG,8G,TC,IELC,IGC,RFA,IBEGG,IFFC,IA, GadCor40 
Pit get 63000220 
CALL PFLANET(KK,RKM,PMASS,GM,PDENS) 
1000 kJ#l 620C0230 
READ(INCARD, oe RF WaRFD RF GpdpAUXe VU, VT, GGG,PUN 
1020 FARMAT( FRelse4eQaFSeopslisfeetseri2ebser2e1) G3pCc0250 
WRITE (1OUT»1021) RF W,RFD, REG, dpAUyy VUs v7 4 GGG, PUN GaNCQz60 
1021 FORMAT (4H » Fei oF6e3eFSeq215eF 4012 2F 1206s 2F 401) G3DCQ270 
10C1 BD=8De1 G3DC0280 
WRITE (1@yT+1003) BC G30C0290 
1003 FSRMaAT(/se'THIS 1S BECY 1,12,/) GadCo200 
READ(INs 1002) MG,UU(BD),UZU(ED),UT(BD) »UZT(B8D),LBP 630Co310 
1002 FORMAT(12,2(F2,1,F1206),]1) G630C0320 
“RITE (TOUT, 943) MQ,UU(BD) ,UZU(BO) ,UT(BD), UZT(BD) G30CO220 
943 FORMAT(14s2(F4e1sF 1206) ) G3DC0240 
MMaMGet G2DC0350 
IMM(8D)® MM G3DC9360 
1025 08 1064 Ms2,MM G630C0370 
READ(INs1030) UMID(MsBD),URHB(MsBD) »UZEE (Ms BD) »0UM G322Co380 
1030 FORMAT( I2sF10e4sF16+6sF 602) 
URF8(M,BD) SURH6(M,BD) =RFD G20Co490 
WRITE ( 1UTs 1031) UMTD(MoBD) sURHO (Ms BD) sUZEE (M2 8D) »DUM G320C0410 
1031 FORMAT(1H I2eFide4seFibebsF 602) 
Ilso G620C042320 
MLM® Mel Gs0Co44er 
IF (0UM)30403 G3DC0450 
IF (M=2)59405 G20CO440 





240+ 
este 
24re 
243 
244. 
2456 
2466 
247s 
248-6 
2490 
25c. 
eSi« 
252¢ 
253* 
254, 
2556 
2566 
2576 
2586 
2596 
260° 
271° 
26e. 
BAe 
2o4e 
2656 
266» 
2E7 6 
268+ 
269% 
270° 
2716 
27265 
273+ 
C74. 
275-6 
276.5 
2776 
278> 
2796 
280° 
281. 
ekPe 
2436 
ca4e 
2256 
26 
287. 
OBRs 
CHG 
2906 
251° 
292. 
2936 
CM. 

95- 
B56. 
297+ 
298 
229.6 


5 
6 


to41 
4 
1040 


12 
10650 


1051 
1052 


1055 


1053 


1056 
1054 
1063 
1064 


306 
310 


32C 
330 


340 


350 
360 


to&% 
106¢ 


1070 


1504 


1075 


MA 6 Tet,UTITI¢¢UMsRD) 
X(MeT,39)ex(MUM,1,BN) 
69T61559 
FARMAT(}H 6F 4205) 

TI si1+1 
BREAD (ING 1049) X(Mells80)e¥(Ms T1280) oe LPT 
FRRMAT(2F 4205011) 

IFI(LPT) 4e4242 

ULTT¢M,5D) eI 

IF (OtimeEGe1) Ge TE 1664 

G? Te (1051,1052,1053,1654), 1+1Sw(1)+2e1Sw(3) 


wRITE(I9UT21041) (xCMeleBCyey(mMetsgo)eleqetl)y Ge TA 1064 


CH 7055 Lets! 
CALL CBFRR(XKC LT) ,YY OD) eX (Mel, BO) oY(M,[,8D) so ITST,YTST) 
X(M,7,8D @XxX(T)s YCMeT,6D) 8¥Y(T) 
G? T@ 1051 
JTSTa> 
DE 1936 LTaqell 
CALL CHARR(X(Ms TaD IVY (Map PBDIMXXCP IVY CL Dep TSTadTST) 
WRITE (IYUTS 1041) xx lait) 
GB TP 1064 
PB 1963 Tayall 
CALL PeaRR(X(M, 13D), YC", 1,80), XXC1), YY(1),11ST,JTST) 
wRITECI@UT#1041) xxCD)avy(l) 
K(MeTesB 2) eXX(1), YoMelebly sY¥¢1) 
CONT TL \UE 
IF (FUN) 200210612390 
IF (U) 31543294 31¢ 
Mas, 
UZEE(1,8D) 82U 
E(1)sVu 
vél)dsvb 
F(i)eVe 
GT? 33) 
Mose 
TF (7) 34593502349 
VP evMe4 
UZEE(MSs8D) SZ2T 
V(MP)syT 
E(MPyavT 
FMP) avT 
GeTe 366 
hPahy 
NGO®MPeMB+1 
MES sv 42 
NGGsNGB8#2 
TF(LPP) 190917 10014 1060 
CONTINUE 
BOCsp% 
K gk +4 
kDeC 
wTST#} 
S8MO0 63 SaMizCe 
SHEZe00; SHCZ*0° 
SAMO e«@ Oe 
wRITE (T8UT21504) 


a 





639CQ470 
G20C04%0 
G320CO490 


G3DC0810 
G35C0520 


G30C9540 
G3DC0550 
G30C0860 
G2N9C0370 
G35C0580 
G20C0590 
GaNCoenog 
G30C0610 
G32C0620 
S20CO430 
620C 96409 
§29C0650 
G320CG660 
G30C0670 
G3a%C O64 
G20C0,20 
G3DC0700 
G39C9710 
G30CQ720 
G63DC0730 
G320CQ740 
G2DCO750 
G3NCO0740 
639C0770 
G30CQ780 


G2DC07390 
G329COR90 
G320Co%10 
G3NCoR20 
G32C0230 
G20COR40 
G20Co#&50 


G30C0360 
G3DCO870 
G30COR80 
G20C0R 390 
G29CoO300 
G2NCoF16 
G3DC0920 
G3DC0930 
G329CO94o 
G3NCo%50 
G39CQ°%6O 
G3DC0970 
G2NC0980 


62NCO990 


FSaRMAT(IH PETER EER aH HH ee He GIDCIOO0 
PETE TETURTETTTIT TILT tt i Terese 
WRITE(I9UT21675) 

FARM AT(1H ////95h FieLbD PA8yNT CABRDINATES 


G30C1010 
G320C1020 
G20C1030 








300+ 
301. 
302 
303. 
i 3046 
! 3c5+ 
i 306+ 
3c7e 
303° 
309. 
310° 
3iie 
312+ 
3136 
3,4. 
315. 
3166 
317. 
318 
319. 
320° 
321° 
322. 
323 
324%. 
325° 
3266 
327-6 
328+ 
3296 
3306 
331° 
332. 
333+ 
3346 
335° 
336, 
227-6 
3386 
3396 
340° 
341. 
3426 
3436 
2446 
3456 
B46. 
3476 
3486 
3496 
350-6 
351+ 
352+ 
353- 
B54. 
3556 
356+ 
337-6 
358+ 
3296 


1073 


1 


ce3 
1077 
1072 


16 
1cé2 


1073 


1090 


1100 
.11¢5 


1110 
1112 


1115 


112c 


1130 
1140 


1351 


216 


} 
ra ¥ 2 
3° STCMA «A RHO#Z Vv DELTA PRIME 
FSRMATIIA [2eF 8ee2,F 1202, F12.2) 

TF (ISwli)eEGeO) G8 TE 17 

IF (ISw(2))152001-1220 


C6KTHUR DATA 


//128H 
VERTe DEPTH 


DELTA 


71H 


| 


K XG2DC1040 
DENSITY G39C1050 
) G39Cir460 
G2NC1070 
G39C1080 
G20C1c90 


CALL GINATCITAPEs TAPE r Kus KDas KGMB2KGYRsKGHMs TDIF as ISARCARLATs 63NC1100 
1 RLENG, ELEY, k97729BSGs ICEP,FAG, po, TC,IELC,IGC,RFA,IBEGG,IFFC,IA, G30C1110 


2 IF EC) 
IF (KJeEG.9) GE TA 1520 
CALL CBORR(FXsFYsRLONGPRLATsITSTs UTST) 
FZsELEV/1000° 
TFC ISW(3))1801077018 
READ(INCARD? 1023) FXeFYeFZeFAGeL oP 
FARMAT(3(Fiee7)eF 602814?) 
IF (ySw(3),6Ge1) GO TA 1072 
aARITE(I8UT#1078) KepxaryerZ 
G6 Te 1962 
LTSTeQ 
CALL CRARR(FX,FY,RLONG,RLAT,ITST,JTST? 
wRITE(TOUT*1078) KeRLATsRLONGe FZ 
POeEDe4 
WRITF(LTGUT,1003) BD 
ZZEEC Mint) aLZEE(MB82BD)s RKBZ80s RHCZ*O 
MM sIMM(BD) 
CE 443 Meo,%M 
SIGA = © 
SFELZ = 90 
FSFELZ=0 
STVsQg 
UsUL( RD); ZUeUZU(5D); TsLT( BD), ZTsUZT( BD) 
ZEE(M) BLZEE(Ms80)3 RHE (MY) =URHA(M,BD) 
LELOMP BUTTE OM, 8D): MyD(M) sUMID(Y,BD) 
ZeZEE(™) @F2 
ALPH1 eX (M9 1280) oF X 
PETAy2Y(Msi sD) oF Y 
R1 = SiRYF(ALPH1 #* 2 + BETAL ** 2 ) 
IF (R41) 1100 11054 120C 
GAMM, # ALP] / Ri 
CELTis FETAIS/RY 
TF (AUX) 111021411521110 


WRITECTEUT, 1112) MID(M),III(M),ZEE(M),RHB(M) 
FORwAT (1H sy/l2e 12k VERTICESsl 249 DEPTHsr 7022414 


1S*2/s/1014 1 X(T) YT) K(I¢#4) 
é 8 G D PARFEZ 
IIs ITITGM) 

CF toio I = a2 I! 

ALP}H22x (My, IT, BD) FX 

BETADeY(Ms 1280) °FY 

R2 = SQRTF (ALPH2 *##2 + BETAD #* 2 ) 
IF (R2) 1129 1359s 112° 

GAMMe = ALPH2e /R2 

DELT2 » BETA2 7 Rp 

IF (R41) 11402 13592 414¢ 


Y¥(I+t) 
71H) 


SSeSGRTF((ALPH{*ALPHD) *#o +(BETAL]*BETA2) ##2 ) 


EGA2(ALPH{*ALPH2)/5S 
TAUS(RETA{*RETA2) /SS 

Pos TAU # ALPH « EGA « BETAL 
IF (ABSF(P)#090001)13502135001351 
IF ¢P)1150,135071160 


A 





G20C1120 
G30C1130 
G3°C1140 
G630C1150 
G2NC1160 


G20C1180 
G3NC1190 
G30C12C0 
G29C1210 
G20C1220 
G630C1230 
G29C1240 
G29C1250 
G2NC1260 
G2nc1270 
G20C1230 
G20C1299 
G20C1300 
G3pC1310 


$20C4220 
G2NC1330 
G320C1 349 
G2NC1350 
G29C13260 
G20C1370 
GaNC1 380 
G30C1250 
G320C1400 
G20C1410 
G39C1420 
G30C1430 
G30C14490 
DENSI Tyerg29c1450 
G30C1460 
G30C14790 
G3NCci48o 
G2DC4490 
G6325C1500 
629C1510 
G3DC1520 
G20C1530 
G62NC1540 
G20C4550 
GadC7156o 
G20C1570 
G2DC15%0 
630C1590 
G20C{400 
G2adcy410 
63NC1ise0 





Sai AU a errme c.cwr Siege Mile mt 


bad bide 





dps Matas isn it STE REARS 


3606 
Sele 
342 . 
363- 
B64. 
365° 
3666 
367-6 
36R. 
3696 
370° 
371- 
372. 
373. 
374%. 
375-6 
376. 
377. 
378. 
379- 
350+ 
B4- 
Bre 
33. 
Bede 
3&5. 
3e660 
3a7- 
388-6 
3896 
390° 
391° 
3926 
3936 
B94 
395-6 
3966 
397. 
3986 
3996 
OC. 
4O1.< 
4026 
403, 
4OS6 
4956 
4obe 
47. 
4OBe 
4OGe 
4106 
wits 
4126 
413° 
414, 
4156 
4166 
417+ 
418. 
4196 





1341 
135¢ 


136¢ 
1376 
138¢ 





wFITECIPUT, 9998) SS,TAU,EGAsP 


217 
> S # fe G20C1630 
G9 T6 1179 G30C1640 
S$ = le G3NC1650 
Emm # BETA, # ALPH2 - BETA #* ALPHY G20C166C 
IF (EMM) 11904 13504 1200 G29C1670 
nN 8 h0 G30C1680 
Ge Te 1710 G3DC1690 
an # de G3C1700 
1F(2)12101212102¢12101 G29%1710 
PST 8S#(Z/SQRTF (PeeatZees) ) G29C1720 
AASGCAMML*GAMME+DELTI#DEL Te G2NC1720 
IF (AA) 1225 1220 1234 G29C1740 
A © we ye 570796327 G2lC475o 
Gé@ Te 1240 : G20C1760 
As we (ATANF((SQRTF(1* © AA we 2 1) 7 AA) + 39141592654) 620C1770 
GA Te 1240 : G20C478o 
A = W #® ATANF((SGRTF (ye = AA #*# 2 )) 7 AA) G30C14790 
1F(2)12401,124C2, 12401 G2NC1R00 
EQ G39C1810 
cs0 ce G29C1220 
Ge TH 1349 G30C1%30 
Bis (PSIe(EGAwGAMM, +TAUSCELT1) y G2NC1 840 
IF (BR = 40) 12608 1250" 1260 62001856 
B® 1570796327 G2DC1860 
c& TA 1290 G39C1870 
IF ( BR + 1°) 12899127091280 G2NC 4880 
Bs =10970796327 GaDCi ke 
G@ TA 129¢ G329C 1900 
tH ® ATANF(BR/(SQRTF(4¢ = 66 ## 3 ))) G3NC4910 
cc s (Ps] # ( EGA # GAMMe + TAY * DELT2 )) G3NC1is20 
IF (cc * 1°) 1310213001310 G29C1°30 
C = 10570796327 G30C194o 
G8 Te 1340 G29C1°%5o 
IF(CC + 4°) 33309132979133¢ G20C496 
Ca-10870796327 G3NC1976 
G& Te 1346 G20C1920 
CBATANF(CC/(SGRTF (yeeCC#He ))) G20C14999 
5 CaC#B G2pCc2000 
FELZsAse G2>Cen10 
BR sEGASGAMMy+TAU*DEL TZ; CCaEGA*GAMMo+TALaDELT2 
TF (1 LE ABS(BB) .BReiLEAESICC)) PBsis PC#1; GB TB 1341 
pa ® (SORT (pe2+( {epg eee) #2##2)4Sepeng)/SCRT(1eppeee) 
PO § (SGRT(Petat, 4 -CCHHsy)eZe#D)+SePHCC)/SCRT(4=CC##2) 
PFELZ # Z#(D+A) ©  P*LAG(PB/PC) 
cP TA 1360 q3Dc2020 
FEL Zo 62NC2030 
FFELZs¢ 
Az0 G2DC2%40 
#eO Garcecso 
C20 G29C2060 
Cs0 G3PhC2070 
Te (Aux) 13702 139971370 G2DC2O80 
PARFE7= 6¢674#RHO(M) wFELZ G3DC2n90 
CAGSALPHy+FX GanCe100 
DEGSHAETADSFY G3nCc2110 
DEGGeALPHP+FX G20c2ieo 
CEGGSaBETAD+FY G20C2130 
[RMAs{ol G30C2140 
wRITE(ISUT, 4385) IRMA, DEG,08GS,08GG,08GGS,A,8,C,0,PARFFZ GalCe1So 
G29C2160 





218 


9998 FERMAT(4E18e7) G20C2170 
1385 FERMAT({H LaaF9easF9eeeF Secs Figems Fyee7sFyDe7e FyQe7e Fipe7eF 4 20G30C24 RO 
16) 63°C2190 
1390 SFELZ=SFELZ+FELZ 63NC2290 
PSFELZ#PSFELZ*PFELZ 
SIGAsSICA+A G3DC2210 
Lac G3NCe220 
RAsEKM@ZEE(M)3 ZZsRKM=FZ 
DRASCBLE(RA) 
C2ZZ*oBLe( ZZ) 
RVARSR1i G3°C2240 
TSapeZsSGRTF (Z##24RVAR# #2 ) G39C2250 
RVORSCALE (RVAR) 
TTACECR( (CRAPOSNIRVOR/ORA) ) # #24 (OZZ0R A HOCHS(RVDR/DR,) ) ##2) 
Ty eCRAa(DaMRAsTTa(C7ZZee2eDRAwe2) /TT)/(2n0Z72 482) 
TUsSAGL(TX)°TS 
LeL+4 G3NC22% 
GA TA9(1392,339391394213g521396) aL G2NC2300 
TysSeTl G622c2310 
RVARaRD G29C2320 
G8 TR 1398 G2%C2230 
TyaTyeoeTL G20C2340 
ene ay he cEINGhy EURESRDIEINTATDD GahC2250 
RZBRVAK G30Ce36o 
FA TH 1398 G3DC2370 
TysTye2ceTy G2DC2380 
Ry AR ERI #R30SIN(AZ2)7( (R14R3) eSIN(AZ4)) 63902330 
G8 Te 1398 G3hCe409 
TV8TV428eTL G20Ce410 
RVARBRO#P3eSIN( A/2)/( (REtR3) MSIN(AS4)) G29C2420 
G6 TR 4398 G29C2430 
TVa(TV#28#TU) #(A/9E) G3DC2446 
STvsSTv+Tv G2Nce4so 
AL PRY SALPH2 G3>c2460 
BETALsBETAS G2DC2470 
GAMN 4 aGAMMe G20C248O 
DELT1sCELT2 630C2490 
R4sXp G29c2500 
CANTINUE 630C2519 
IF(SIGA)20122022203 | G20Ce52n0 
IF (SIGA%*90001) 204,265,265 G30C253 
SFELZaSFELZ@SIGA G3DC2540 
G8TSeace GadCesso 
Fevers ve ceegtynoeaag seo. GaDC2560 
LF (S1GA4+6.2831754)207,207,2021 G3NC2570 
TE (SIGA+¢3¢ = 4416027) 2020202392022 reer 
IF (S1GA4+3°1415827)20239 20239202 G29C259q 
SFELZeSFELZeS1GAe301415527 G320C2600 
GETS poe G30C2610 
SFELZ sSFELZ*S1GAeH 02831254 G2DC2420 
GATY G30C2430 
TF (S¥94*6+2234754) 200422 2084 208 ‘ G3gDCar4g 
IF (S]GA~301415827) 2022025, 2026 G320C2650 
IF (SIGA*3°1416027) 2025420254202 G30C2660 
SFELZeSFELZ*SIGA4204415927 G2NC267o9 
GHTS 202 G2DC24680 
SFELZeSFELZ*SIGA+6*2631254 G32DC2490 
VOM) w6067#8H8(M) #(SFELZ+STV) G30C2700 
£(M)s6e67#RHO(M) *SFELZ G20C2710 
F(M) @60457#RHO(M) #PSFELZ 





Hkh 
4ACe 
HEB. 
Hobe 
HAS. 
4366 
4&7 6 
48Be 
4a9. 
4906 
494. 
4926 
4936 
4S4. 
4956 
496. 
457-6 
498- 
499e 
500+ 
Sci. 
So2e 
Sos. 
504. 
5056 
5c6-« 
507. 
508. 
509-6 
510¢ 
Sile 
Sie. 
513-6 
Sisbe 
5156 
516-6 
Si76 
518. 
5196 
5e0« 
S216 
522+ 
523-6 
S24. 
B78: 

PO. 
5276 
528. 
529, 
S30+ 
Ssi. 
5326 
533- 

4e 
335: 
536-6 
5376 
538. 
539+ 





1610 
1620 
1630 


1456 





SIGhA(M)@SIGA G2NC2720 
CONTINUE G320C2730 
IF (U9 16902 161021600 G30C2740 
MSat G20C2750 
MIO(y)s¢ 63NC2760 
TI1¢1)81 G3DC2770 
ZEE (1) 82U G20C2780 
FRO(1) 8FHA (2) G2DC2790 
SIGMACL) #060 GaNC2R00 
VL) eVU G3DC2810 
E(L)avu G30C2220 
F(i)sVU 
G8 Te 1620 G20C2830 
Moac G3DC2240 
IF (17) $63021632s1630 GanC2sso 
VP shee) GINCeR6o 
MIC(MP) sMIODCMM) +1 4 G3PC2R70 
ITI (ME) aL GROC2E80 
ZEE (MP) 8Z2T G32NC282390 
RRO (MP) sRHG (MM) G30C290 
SIGMA(MP) 8Q6 G630C2910 
E(MP)avT i G30C2920 
V(MP) svt G27C2930 
F(MP)aVT 
Ge TA 1432 G320C2a%40 
MPaXhM G30C2950 
DEL (MS) aQe G3NC2960 
CELP (M9) a0 G30C2970 
DELP (M844) ane GaNC2eRo 
CEL(M™ 1806 G39C2990 
ANAMso 630C3000 
BEL (MP) sO6 G2aNC3010 
BELE(MB) 806 G32NC3020 
BELP(MO+1) 5086 G2DC3030 
BEL(MP)3Q6 G3NC3940 
ANA ML a0 G3NC39050 
PDEL (MA) BOe 
PDELP(M3) Oe 
PRELF(MS +1) 2060 
PCEL (MF) sCe 
PAN8M sO 
hNeMPed G3ahC360 
Ce 145¢ MeMaeMN G30C3070 
CEL(M41) #® (v(Mbe((ZEE(M) @7EE(M41))7 (2EE(M) © ZEE(M+2))) #g20C3980 


1(3e¢ * ZEE(Mt#2) = Qe * ZEE(M) = ZEE(M41)) * VeMe1) * ((ZEE(M) © 2FG30C3C90 
PEIM+L) IAC ZEE(M41) © ZEE(M*2))) * (36 * ZEE(M+2) © By * ZEE(M+1) © G3%C3100 
32FE( md) + Vomt2) © (CZEE( HM) © ZEE(M+t)) #8 3 DAC ( ZEEC mel) © Z2FE G2nc3110 
S(MeP)) «© (ZFE(M) © 2EE(M42)1)) 760 G3NC3120 
BEL(M+q) CECMIHC(ZEE CM) @ZEE (M4127 (ZEE(M) © ZEE(M+D))) *G3D03130 
(3,0 © ZeEE(Mt2) 2 2, * ZEE(M) © Zeel(Med)) + EMAL) * (CZEE(M) - ZEG2NC3140 
CECM+ IIS (ZEE (M44) © ZEE(Mt2))) © (36 * ZEE(M*O) © Be * ZEE(M+q) - G3NC3150 
Bzee(M)) + E(MF2) # CCZEECM) 6 ZEECMeE)) we 3 ZUG ZEE(M+1) - Zee G3NC3160 
N(wer)) » (ZEE(M) © ZEE(m42))))/8°0 G320C3170 
POEL (M41) » (F¢M)*((ZEE(M) eZEE(Med))/ (ZEE(M) = ZEE(M+#2))) * 

1(300 * ZEE(M+2) © Be * ZEE(M) © ZEE(M%1)) + FUM+1) * (CC ZEE(M) © ZF 
ZEimeLIIZ(ZEF CML) © ZEELw+e))) # (Se * ZEE(vs2) = Be # ZEE(M+1) © 
SZEE(M)) + Fimo) » CCZEE(M) © ZEECM+4)) we 3 D700 ZEE(M+1) © ZFE 
&(M42)) & (ZEECM) = ZEE(M42))))/606 

DELF(mé+2) 8 (V(M) # COZEE(M41) © ZEE(m+2)) #* 3) ) / (CZEE(MG30C3180 
1) = 2FE(M+1)) » ¢ ZFECM ) = 2EE(M42)))% v(Mes) @ ((ZEE(M41) © 7EFG29C31 90 







wlieaaume cada 





i RTA NTT IOS, 


ets 


220 
S40- 2(Mee)y 4 (ZEE(M) © ZEE(M41))) # ( ZEE(M42) + 20 #ZEE (M41) © 3eeZEEG39C3200 
| S4y0 3(M)) + ViMen) # CC ZEE(M4y) © ZEE(M#2)) / (ZEE(M) = ZEE(M+2)))* (ZEG30C3240 
542, 4E(M+1) + Pe * ZEE(M+2) © 3, * ZEE(M)))76.0 G30C3?20 
5436 HELE (mee) = (E(mM) * (CZEE( Med) © ZEE(we2)) ## 39) 7 ( (ZEEE (mMG27C3230 
S44. 1) = ZFE(M+1)) © ¢ ZEE(M ) © ZEE(M4#2)))% EcMeiy * ((ZEE(Mt1) = ZEEG30C324%0 
5456 2(M+e)) 4 (ZEE(M) «© 2EE(M41))) * ( ZEE( M42) + De #ZEE (M44) © 96#ZFEG29C3250 
S466 BiMyy_+ EcMeay * ¢(ZEE( Mey) © ZEE(M+2)) 7 (ZEE(M) © ZEE(M#2)))* ¢ZEG20C3260 
547. 4E(M41) + 25 * ZEE(M42) © Be * ZEE(M)))/60C° G3aoC3270 
5486 PHELP (wee) # (FOM) # (CZEE (Met) © ZEE(mt2)) ## 3) Z (CC ZFE(M 
S496 - 4) © ZEE(M+1)) @ ( ZFE(M  ) = ZEE(M42)))+ F(M41) » ((ZEE( M41) = 7EE 
55o- atmte)) 4 (ZEE(M) » ZEE(M44))) © ( ZEE( M40) + De *ZEE(M4+4) © 3e%7FE 
S51, 3cr)) + Eimer) & Cizeg (ety » ZEE(M+2)) / (ZEE(M) = ZEE(M42)))* (26 
552-6 4E (hei) + De » ZEE( M42) © Se » ZEE(m))) 7600 
' 5536 1450 CANTIAUE G39C3280 
5546 ANBY aQe5# (MEL (M641) +DELP (MP) ) G39C3290 
555, ANG’ 180. 5* (PEL (MG 41)4BELP(MP)) G2%C3300 
5566 PANS MeO e5#( POEL (M8+1)+PCELPI( MP) ) ‘ 
557-6 CA146QMaM8y™P G29C3310 
S38. AN@™ = ANAM + Oe5*# (DEL(M) + DELP (M)) G20C32320 
559. ANON 1s AN@EM14 0,58 (BEL(M) + RELP(M)) G30C3330 
560+ FANS MepANFwed eS#(PDEL(éM)+PDELP (Mm) ) 
S461. GG(M) wANAMeQe5*#DELP (MP) : G2NC3340 
5626 1460 CANTINGUE G2DC3350 
' 563° IF (key) 44540445424 454 GaNC3260 
564, 1451 IF (RFS) 1453,1454,1454 G20C33270 
5656 1453 REGeANBMv G3290C3280 
566-6 1454 GG(hMeysCter G29C3390 
567. GE( 641) 8Qe9 GaPC34q0q 
568 GG(MP)aCG(MP)40.5#DFLP (MP) G30C3410 
5696 Of 1471 w=amMGeepP G22C3420 
570+ ZZeEF (M) eZEE CM) G3NC34 30 
571+ RrG7aSHB7Z + RHO(M)#(ZZEE(M) @ZZEE( M1) )#SIGMA(™) G22C3440 
5726 RHCZ#RHCZ+(ZZEE(M) @ZZEE(M=1)) *SIGMA(M) G32NC3459 
573. IF (MeM9) 153221532,1533 
574. 1532 RkZs0; PHCZs0 
5756 1533 CE8NTINLE 
S76. WRITE (LEUT,447¢) MIO(Mys, TID(M), ZEE(My» RHO(My, STGMAG3OC3466 
577. 1 (M), 2h (M) ST GMA(M) #(Z2ZEE (Me ZZEE (Mey) )ZPIES VOM) »DELP(M) »DEL(M) G30C3470 
578-6 1471 CONTINUE G320C34R0 
5739. 1470 FSRMAT (42K T2,15,61G20C3499 
580° LoraeFReraFyce7aF yredsaF pees ck yee4) 
Sele PANSMaePANAM/9BQO. 
5k26 c PANO» IS THE PSTENTIAL pANBmySao IS THE HEIGHT IN METERS 
5a3- WEITE ( I1SUTs 1489) ANOMy ANSMe@RF G, ANGM WRF GeF AGF AG, ANOM 4» RHOZ/PIERREW, G20C354 0 
584, 1 PANBM*+ 30860 PANGMsRHCZ/PIEeREW 
5é5-6 Sov aSlw+ANOpy G629C3530 
Sab. SSM1sS8"1+ANGMy GaNC35840 
5876 SiMe =» FANQOM+SEMe2 
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5986 148C FHRMAT(' '//,'CURVED ANSMALY® 'E12e4s! REFER ANOMALY® t£4204, G20C364 
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PROGRAW G3CC PREP 
VERSION § FEB 78 Te USE REFERENCE CENSITY 
VERSION BF 23 MAY 74 TO INCREASE RESOLUTION BF Z 
VERSIO 1 MAR 74 TO RENUMBER LAMINAE 
PROGRAM T@ PREPARE I/P 186 G3D 
CIMENSION ICAROD(90),NSL(1C} 
CIMENSION REFO(10) 
BUTPLT 'G3CCPREP VERSION § FEB 75! 
LBFai 
[TAPE#6 
JTAPES7 
IIN#sic5 
READ(IINs 1004) NUMBED 
C6 405 :84eNUMB6R 
READ(IIN», 1006) REFD(Y) 
CONTINUE 
CB 110 IsishimMBaD 
READ(413210C4%) NSLCNT 
NSL( IT) sNSLONT 
CONTINUE 
C6 S00 I814NUMBED 
NCATP8O 
ITAPESITAPE+41 
IF(TeEGeNUMBBD) WRITE(YTAPEs1005) NSL(I)sLBP y GO TE 430 
WRITE(V TAPES 1004) NSL(T) 
CONTINUE 
READ(ITAPEs1Q922END240Q) NCNT,RHO,Z 
NCNTPBRCNTP 4) 
RRO sRKBeREFD (1) 
WRITE (TAPE 21002) NCNTP,gRKO,Z 
READ(ITAPEs1CO3) XsY,LSLPT ; 
WRITE ( TAPES1003) XeYebSLPT 
IF(LSLPTeNE®4) GO TE 18¢ 
G8 T8 170 
CONTINUE 
CONTINUE 
STAF 
TRA RAE SE 
FARMATS 
HORDE E 
FORMAT(8Q0A1) 
FORMAT([2eF10C04,F1606,F 603) 
FORMAT(2F12°5011) 
FORMAT (12) 
FORMAT([2s28X, 11) 
FORMAT(F 1000) 
END 
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PagGRAM HIG 
FER INITIAL CANVERSION SF HeleGe GRavIrY CATA TS WHA] GSUM 
INITIAL VERSIABN BASED BN FROEGRAM DMA 
INITIAL VERSTEN 3 DECEMEER 1973 
DIVYENSTON [A(35),NAME (80) 
OIMENSTIIN 12(9)2 N35) 
DATA ISs! S'Z 
DATA Iwey! ats 
ITAPE=1 
JTAFES? 
TINe105 
IS8uUTsica 
OLTFUT I PRAGRAM HIG VERSTSN 2 C 
CALL STAT 
JalSwle-2) 
DEGRA#1.745325E2 
RADE GS57 0 2957% 
KKst 
K]sl 
KGs*2 
CEND22 06791 °08 
DENS s1 064 
NREC 29 
ELEV=065 
READ(TINs4¢02) IS9RC 
100i FARMAT(I5) 
BuTPLT TSARC 
CALL CINAT(ITAPE,.ITAPE,KK,KGDA,KGMB, 
KGYRsK GNM, JCIF,1S@RC2RLAT,RLONG,ELEV,K977,86SG, 
YDE Rs FAs BGs TCouEL Cs IGCaRFASIREGCoIFFCs IAs IFEC) 
IFFC217 
16¢20 
TRECCsC 
IFBCeO 
Re aO(ITAPe, 1002) IHSC,IS!IGFa,ISIGBG 
FIRMAT(LOxs 14/1 2s12) 
READ (I TAPE 41603) (NAME( 1) 2181260) 
FORMAT(S9A1) 
6 CANTINUE 
REAL (I TAPE, 1004/END2999) Buoged kee been ee ee ee nates 
i ILSNGOsOLENGM,NEBRK, TELE Vs NG1,NG2y TELE VKEY, 1 YR» TAPP, 
2 IELEVC+TELEVTSIFA 
loo FERMAT (13, 24ca 14s XelosF aeasAga l3eF4e os Ayel 7013415, 
1 144122311513xX,16) 
CKECKING APPARATUS CBDE 
NAPFalTAPPat 
G3 TO (319051605102510s55E0510) NAPP 
Sic @UTFLT APPARATUS CADE NAT IMPLIMENTEDO! 
556 CANTINGE 
DELEVsFLOAT(IELEYV) wed 
IF CLELEVKEYeEG sO eANDOIELEVCeNE®4) ELEVeDELEVs GP TB 
ToeEPsDELEV 
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53° CePsFLBAT(IDEP) BE 
S4e Sec CONTINLE . 
38* a: DLATMaLLaTM/O06 
56° DLATOSFLAAT(ILATD) 

37. DLAT#CLATD+OLATM 
38 IF (NGRS*EGe IS) DLATs=DLAT 
55° DLENGM sOLANGM/60 

- 60° DLONGD sFLAAT(IL@NGD) 
61° DLANGeDLENGN+DLENGM 
eee IFC NEG@RMeEGe I WE) OLENG=-CLANG ‘ 

O36 FASFLEAT(IFA) *o4 

b4e BCsFA+(°C4185*DENS*CEP ) 

e5° ZG, sFLEAT(NG1) #1000+ 

eos LGQRFLGAT(NGE) ed 

67° KS77eNEl 

68« BRSC8zGe 

29s KGkMaISTA 

7Ce KGYRSIYR 

71. ENCE&DE (3¢,1005,1Z) I HSC, ISIGFA, I1SIGKG, IL6C,1ITR,ISER, IAPP, IELEVC, 
7e° 1 IELEVT 

73° Loos FYRFAT( l4,elee1 3222, 311) 

Tue CALL UNFKBY (12s TW 35) 

756 05 420 924,35 

76° TAC) FISL CL (dee) 

77° 4eo CENTINUE 

78 Seo CUNTINUE 

79° RLAT SOLAT#CE GRAS RLONGeDLENG#OEGRA . . 
$C CALL GINAT(ITAFE,JTAPE,KG,KGDA,KGMI,KGYR,KGHM, IDIF,ISBRC, 
Sis 1 RLAT»RLONGs ELE Vs K977s08SGs IDEP»FA, BG, 

2° z ‘ TCeTEL Ce I1GCpRFAsIREGCeIFFCs TAs IFHC) 

3° NRECENRECHf 

B4e G3 T@ §¢ 

&Se Cc 

eee G EXC 6F FILE 

K7e C 

Re 695 CENTINLE 

E9e ENDFILE TAPE 

906¢ @UTFLT NREC 

91° GLTPUT "TALL DENEt 

Yee STEr 


33° END 
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19. 
206 
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236 
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PROGRAM LSORT 

PROGRAM TO SORT AND EDIT LUNL O/P 

VERSION 29 APRIL 75 TO CHANGE TEST IN LINE 21 
VERSION OF 23 MAY 74 TO INCREASE RESOLUTION OF Z 
VERSJTPN BF -9 MAR 74 TO MAKE GETTER ESF CHECK 
VERSTAN 1 MAR 74 TH SOP IF ISLCNT GT 20 
@RICINAL VweSl@n 2@1 FEB 74 

ITAPE sO 

wTAFER6 

KTAPE a1 3 

LIN%1¢05 

GUTFLT 'PRBGRAM LSART VERSION BF 29 APRIL 75! 
REAC(IINs1004) ZLIM 

BUTFLT ZLIM a 
PEAD(TINs1C01) NUMBSD 

Ce 50c [s1,sUMBED 

ITAFEsITTAPE4] 

UTAFERLTAPE +} 

ISLONTS) 

ZST£9°990 

READ(ITAPEs 10C2+ENDe40C) NCNT, RHO, 72 

TF (2 oF Ge gee ANDe ISLONT NE eGo AND oe RHEE Geren) Ge TA 400 
ZCRKsABE (Z=7ST) 

IF C(7CKKeLTo7ZLIM) GP TE 606 

Z25TsZ 

ISLONTSISLCNT+1 

IFC ISLC’ Tegte2co) PUTPUT +T6B MANy LANIMAEL ts TSLCONT,I; 6 TA 999 
WRITE CUTAPE210Q2) NCNTaRhO,Z 

READ (YT4PE,1C03) x,Y,LSLPT 

weITE( TAPE ®1003) Xe YeLSLFT 

IF(LSLETeNE*1) GE TRF 80 

Gh THA7S 

WHITE (XTAPEs 4001) ISLCNT 

C&NTINUE 

G@ Té 939 

CONTINUE 

REAC(ITAPE, 1003) XsY,LSLFT 

IF (LSLET*ESe1) GA Ty 70 

G® TA 650 

STAF 


HERR HE 


FERMATS 

S le 

FERMAY (12) 

FORMAT (T20F 1 Qe4eF 1606s F S05) 
FERMAT(ZF12 02s 11) 

FERPAT (F10°C) 

bind 
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1e Cc PROGRAM MODPLaT 

ae € PLOTS DAYA FOR PREPARATION OF, AND CONSTRUCTED, 
ge C STRUCTURE MEDELS GF EARTHIS CRUST 

&e C MaKES PLOTS BF BUTPUT FROM TALPLET 15, PRO@Uy, ANO/ER SAINT? 

5. CHRIS WOADING VERSION OF & NOV 1975 








6e- C VERSION 7 APRIL 75 TO ZERO VARIABLES 
7 C VERSION 24 FEB 4975, 76 ACD USE BF PIN@T AND YINOT 
es C VERSION OF _ 3 a> 1975, $6 GINE@T WILL NOY TRY Te READ EBTP SN CARDS 
j ae VERSION OF 44 DEC 4974, T@ ADD MANOLING OF PROW4 SUTPUT Te 9T TAPE 
10. ¢ VERSION OF Bg SEPT i974 18 GMANGE AND [MPROVe DOCUMENTATION 
v O99 C VERSION OF 4 FEB 19732 T& CRANGE GSum READ TO DECIMAL DEGREES 
12° C VERSION OF yo BCT 4972, TO CORRECT ERROR IN PLOTTING 
136 Cc PeLYGON MODEL FROM CARDS WITH UFMT & 5 
ide 3 VERSION OF g SEPT 19722 TE YPRDATE SEISMICITY INPyT FORMAT 
Se VERSION 6F z SEPT 14972, TO CHANGE FARMay OF PCS CARD 
6 ¢ VERSION OF 6 APRIL 1971, TO PLOT 200 BAUGUER ANEMALY FROM TALPLEy 
i7e OIMENSION BUF (10004 LABEL (20) 
186 OIMENSTON Cxb 100) CYL ¢ 100) 28GA( 200) 4F x (200) »SSELZ (200) 
15° DIMENSION ChGT(aq0) 
20° BIMENSTSN oy eA EULL ee 
ete DIMENSIBN IDESC( 6), vEb(8)s THICK (8) 
eee CIMENSIO6N BG20( 200) 
23° DIMENSION WA(10),wB( 30) 
e4e DIMENSION 1A(35) 
25 DATA NNSehEWstS oo tytW ONY 
260 C 
.& 27° C WEN USING BUTFUT FROM PROJq4 ON MAG TAPE, 
ti 28e ¢ wFMT NUMBER CARDS MUST STILL BE INPUT ON CAROS, 
. 3 29° C IF JFM7#, AND DATA IS ON MAG TAPE, THEN EJTP CARDS HaVe 76 BE 
| - 30 C INCLUDED FAR SUBREVrINe MOUNT, PALLAWING tHe VFMre1 Card 
. % 3i° C 
: 32° c 
4 33° Cc SS¥(4)#0 Te-PLeT ONLY FROM TALPLET OUTPUT TAPE 
a4e f ei TE PLOT pPREY4 DATA, INCLUDING yeneL PBL yGENS 
Se #2 TO PLOT BETH TALPLOT GUTPUT TAPE AND PRE6J4 DATA 
a 6, o ssW(2)a1 7e Ploy ll ANOMALY IN ADDITION 7@ THe FReEeAIR 
‘ a7¢ C SSW (3}et 78 ple? HETQHY FROM eeu DATA 
Be C SSWiyde, TO PLOT ELEVATION, (INPUT VALUES ARE IN METERS) 
De s ssW(5)*1 ve Phay e8seRVEO * CalCe GRaVyyY 
4O° Cc SSW(6)e4 TO PLOT WEIGHT 
41° C SSW(7)a1 T@ PLAT CANTR,BUTION OF EACH pOLyGON 
tg! C SSW(g)s; TO PLAT ae0 BBUGUER ANOMALY IN TALPLOT OUTPUT 
43s Cc ss¥(13)s1 76 PRINT INTERMECIATE VaLUes 
4he C SSw(14)01 T9 PLOT ONLY A Ber FOR gSUmM FREEeAIR yALUES, RATHER 
45° C THAN A CO@NTINUBUS LINE 
46s C pete | Ue 78 READ aaur DATA 6N Peek 
47° ig sW(32)ai 76 Read SPFMY DaTA ON ROS 
480 Cc $86 (36) 01 76 READ SEISMICITY DATA FROM CARCS . 
49e C 
50° C 
Bie C USES INCEP, EXTO, ISW ,SPLO7, SPOT,GINOT,DISAZ 
52. C 
53° C INITIALIZATION SECTION 
54s ¢ 
55° CALL STAT 
56° RFACT#4 
57° TelSwce2) ; 
58° C SETTING SSh(3q)e; SO GIN@T WILL NOT TRY 76 Read €8TP SERIAL NO, CaRDS 


590 Tle{CHG(3141) 





AN 8 RAEI A EER EN Ae RAR RR ES NTE EIRENE FE CRUE ROSEN SY DUES 9 ARR NE ORD! IE REL IO NEIRG MTS AS AEP ORIOTS 
. 


mee ee ee ee 
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60° CabL plLers(selrs=1000) 
i 61° OUTPUY *'MODPLOT VERSION OF & NOV 4978! 
a | 620 1 JIN81OS 
; | 63¢ T16yre108 
rE 64e ITAPEal 
4 65e wTAPEue 
a 66¢ 1GSUMeo 
a 67° Le99 
68e KFXNed 
4 69° 1LeeP eo 
4 70° DEGRAP4 6 74839a9E 092 
a 74° RADEG#S7 029878 
3 72e 1008 « O 
; 736 wJFMT 80 
f Tae 1YIN 28 O 
Le 78¢ IPIN » OQ 
fe 76° 08 100 3812200 
tf 77.6 OGA(1) 2000 
@: 78¢ Fx(1)e900 
a 79¢ FZ( 1) 8090 
re 80° SSELZ(1) 9090 
a Bie OWGT( 3) 8000 
a 82° ; BG20( 7) 8090 
2 836 ioc CONTINUE 
a Bye AT#0°0 
. FE 8Se ASsG 
. Ff B6e ANGB#000 
3 87° 06 101 Leis100 
a BBs CXL (1) #000 
P | 89° CYL (1) 9000 
FE 90° 1014 CONTINUE 
SF 9i¢ NISTKMeQed 
a 920 C8 102 1018 
. | 93° VEL (1)8000 
et She THICK( 7) 8000 
| 956 102 CONTINUE 
f 96« wisd 
r | 97° weed 
ef 98 w980 
e & 99° w4ad 
@ 100° wJ590 
101° v6s0 
OE 102¢ wJ7#0 
ei 103° J8e0 
1046 K1is0 
rE 105¢ K2s0 
106¢ K330 
4 1076 K4a0 
P| 108° <50Q 
p | 109° K6s80 
rf 110° K780 
| tiie K8s0 
, ’ 112° C 
pi 413° C FACT © NUMBER KMIS/INCH IN X DIRECTION (LONG AXIS OF PLOT) 
qa 4146 C YFACT « NUMBER OF KMtS IN Y BJRECTION 
PF 4156 C XwICE = Km WIOTH OF PLAT IN X OJRECTIAN 
a 1166 C Ywr0E_s Km DEPTH OF PLeT IN Y OpRECTION 
] : 117° C TOpP,BOT,BLEFTsRIGTs »© KM VALUE FOR THOGE 
| 418° C —T 7 Wh ew hy ae ee Panne . aR Mmanene iw -: 





eieeenianeemnernemen eerie 
ERD SRST A pe 2 ANE ARE NESE: CEO ONE SIETON DR AEE EARL Qs 


/ 
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120-6 C ABOVE SEA LEVEL @ NEGATIVE 
121° ¢ FOR @THER CURVES THAN MODEL, EDPTH ® NEGATIVE, ELEV * POS|TIVE 
1226 C 
123° C BOLNCARIES 6F MOC PLOT 
1246 C ELFAC, GFaC, WFAC,PFAC, eweARE THE SCALE FACTORS FOR ELEVATION 
125. C (KMS/IN) ,GRAVITY(MGAL/IN) »WEIGHT(KG/IN) AND 
126" - ¢ INDIVIDUAL POLYGON CONTRIBUTION (MG/IN) of 
127° C ELCIS,GDIS,POISeeeARE THE DISTANCE IN INCHES 6F THE 
128° C @RIGINS BF ThE CURVES ABOVE THe GRIGINS OF Tee MODF! 
129° C WOLSeewDISTANCE OF WEIGHT CURVE BELOW Berram OF MOLL. 
130° ¢ ORIGIN OF MODEL IN Y DIRECTION ® OBGY * WOI[S + (BOT/YFAC) 
- 434° ¢ 
$32 READ( TING 11) XPACTYFACT, TOP» BOTABLEFTSRIGT 
433¢ 44 seein ceteats 
1346 OUTPUT XFACT,YFACT, TOP, BOT, SLEFT,RIGT ~ 
135° TORe=TOP 
136¢ BSTe-BST 
137° ICHARSQ 
138+ ISTRT8Q 
1396 READ( TIN, 43) ELFAC, ELDIS,GFAC,GOyS,hFaC,"O1S,PFaC,Pors 
140° Rees TiN e2} HT,0B8T 
144° C mre CHARACTER HEIGHT MULTIPLICATION FaCrOR (USED IN THE CaLl Te 
1426 Cc sYMBelL FeR THE PLA@TTING OF THE ANOMALY CURVES 
143° C if HT IS EQUAL TO ZERO A DEFAULT VALVE OF 3 IS ASSUMED 
1446 C OBET IS ThE DISTANCE THAT TKE WesGHT CURVe 1S SUP@SED Te BE 
145¢ C PLOTTED ABGVE THe BarTTeM OF THE PLgt (RIGHT §10e OF PLOTTER) 
1466 OUTPUT ELFAC,ELOIS,GFAC,GDIS,WFAC, WDIS,PFAC,PDIS,HT 
147 14 «D807 
448e IF (HT eEGeQ) HT 836 
149° HT sHT#0 9035 
150° KXWIDE @ RIGTeBLEFT 
151° YWwICE 8 TOPeBST 
1526 SL ® (XWIDE/XFACT)#0¢5 
453° Sw s det Aiki a ne Me 
154.6 Caul WWERE (*9RG, YOR aRFaCr) 
155° CALL pl B4xoRGe yORGs 03) 
56° CALL SYMBOL Koeg geo, 9gasg7 oer ea) 
57° pe sgswcsyet 80s 29018,5¢19 
tek 5918 aregtoe 
159° G6 18 S021 
160° 5019 ian st 
161° S021 REAOC(INPTsSq22) LABEL 
162° 5022 FORMAT LOQA4) 
163¢ WRITE(TIOU725023) LABEL 
1646 §023 FORMAT( 1xs20A4) 
65¢ CALL eyowee Gea ie? 0 284L ABEL s9Q028q) 
66° Cc ViTeDISTANce oF Medel SRIGqN abeVe BerreM (RyGHy) @F PaPeR 
167° VITsDBOTsWOISs4YWIOE/YFACT 
168° IF(VITsGEeoSe) GUTPUT IPLOT TOG WIDE, WIDTHEVITIBUTPUT VITs 
169° 4 sTeP q 
170° Ip (BLERT)50252502405024 
474° 5024 XTs300 
1726 Ge Te 6026 
473 5025 xTe3eo S(BLEFT/xFACT) 
1740 S026 CALL PLOT(XTsyITs#3) 
175° XX * O90 
1766 YY # 000 
177¢ CALL SYMBOL (000200020014092000881) 


178° C CALCULATING COBROINaTES OF CENTRAL POINT 
179° RX ® (XWIDE#905) © (e1eO*BLEFT) 





ES 


ae neers ee ee ee 


1806 
181° 
182: 
183-6 
1846 
185¢ 
1866 
487« 
488 
1896 
190° 
191¢ 
192. 
193¢ 
1946 
195° 
1968 
197° 

98e 
158. 
200° 
201° 
20e¢ 
203° 
204e 
205¢ 
206¢ 
2076 
208 
209° 
210° 
elie 
21e° 
2i3°¢ 
214 
215° 
216° 
217° 
218° 
219° 
220° 
221° 
222° 
223¢ 
2e4e 
225° 
22660 
227° 
228° 
229° 
230° 
23i°¢ 
232° 
233° 
234° 
235° 
236° 
237° 
PAR. 
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RY w o100*((YWIDE*#005)0(TOP)) 
C CONVERTING ORIGIN TRANSLATION VECTERS T@ INCKES 
RX @ RX/XFACT 
RY # RY/YFACT 
C @UTPUT INTERMEDIATE VALUES 
che w eYWIDE/YFACTeWOIS 
Bf ash 13)) 402,698, 402 
402 KR E( TOUT, 404) XWIDE, YWIDE, SLaSWyRxyRY, XFACT, YE ACT 
404 FORMAT(HIVe 1226€12¢5/2E14208/2E120¢5/2E 4208) 
C Play @RIGIN IS AY 0,0 OF STRUCTURE MeDeL 
658 CONTINUE 
: INITIALIZATION JS COMPLETE 


IF (ISW(4) 211521152405 
C Read Css yalUes poet DATA CARO UgeO IN PROy4) 
495 READ(IIN, 699 ee ee ee 
693 FARMAT(10A122F 1090s 1 4a F692, 142 F602,30A 

WRI ITE (1180746995 JA SaNGSDMAKMs LLATsRILTMS ILONGSRILOM, Je 
RILT#OMTORCILATSRILT") 

RILGsOMTOR( JLANGsRYILOM) 

IF ( ISW(1)*2)7002118270C 


REACING TALPLOT FARMAT 


NN ONM 


115 CONTINLE 
REAO(ITAPEs501)KSW 
501 FeRMAT(80}1) 
READ, TtAPEs 420) RDENSs RWGT, RRODSREF Fy ft sDELF yy My IMAX 
120 FORMAT (6F 1002021310) 
READ(ITAPEs 4.95) (OGACI), Tega) 
135 FARMAT(SF1001) 
IF (kKSW(2) )58325532552 
582 CANTINUE 
READ(ITAPE,435) (F2(T),te4_™) 
553 C@NTINLE 


C 
C NOW START READING POLYGENS 
C 


145 READ(ITAPEs159) LN@sRKORK 
150 FARMAT( 15sF1003) 
16¢ 1 81 
6 CONTINUE 
READ (I YAPEs 168) XXe YVs ICADE 
168 FORMAT(@F10¢2,11) 
C MAKING DEPTHS NEGATIVE 


VY « o«Y¥ 
C CONVERTING CO6ROINATES TO INCHES 
XX # XX/XFACT 
YY = YY/YFACT 
C SHIFTING COORDINATES T@ CENTER OF PLOT 
CXL(1) @ XXeRX 
CYL(I) # e1eO*(RY*YY) 
Cx # CxL¢]) 
CY # CYL(T) 
IF (1°1)1902190,200 
19¢ CONTINUE 
G8 TB 250 
ann CXP = CXL (fer) 





a nae a te ne RE A PENETRATE OMELET IESE HI Ne 





3 237 
4 240e¢ CALL INCEPR(SL»SweCxeCYeCxPeCYPseBxsBYsAls 42081082) 
. 2416 IF (ISW(43) )406,2052406 
F e42e¢ 406 WRITE CT IOUTs498)SLaSweCxeCysCxPoCyPsBXsBYsA1sAlsB1sB2 
q 243° 408 FORMAT(IIV® 15661005/6E1005) 
3 240 205 1F(A1#999090) 21022481248 
q 248e C PLOT MODEL SEGMENT 
j 2460 - 210 XX # AYeRX a4 
: 2476 YY = BLeRY 34 
E 248° IPEN «8 3 14 
4 249¢ CALL PLOT (XXsYY¥s PEN) 
a 250° XX 9 ABeRX 
a © 2eSi°¢ YY s eg 
3 2526 IPEN « 
a 253¢ CALL SLOT (XX0 v2 IPEN) 
4 254e 248 IF (ICODE=9)25072602250 ss 
4 255° 250 Jalet 
4 2566 Ge T8 162 
4 2576 260 «IF ((dFMTcEG05) eBRe (JPMT0EG06)) G@ T@ 272 
age: 262 NCOE = a4 
F 59 C CHECKING 1F PeLYGeN NUMBER ®@ 1 
3 260° TF (LN6"4) 1260119001260 
: 261° CeECK if PLOT 2-0 BEUGUER ANOMALY 
262° “ide IF (ISW(8) 11260242600 1206 
263¢ 1206 De 1220 pes 
264° READ ( ITAp RAGE IGAEX IU LeSSELECK sb GeO IR) 
265° 1206 FARMAT(254F1002010X02F1C0e2 
266° C TIS SECTION PLOTS TNTERMEC TATE DATA FOR EaCK POLYGON 
267¢ IF‘ ISW(7))12109012120121¢C 
268° 1210 XXeFX(K)/XFA Act 
269° YY eSSELZ(K)/PFACePOIS 
870° YPQsYYeVIT 
71e Ait Poses <2? e@Re YPBe thE sO) NCCEaels Ge Te 1220 
2720 ALL SYMBEL (xxs YY eRTs ICKAR, QeQsNCDE) 
273° tele CONTINUE - 
e74e NCOE « 92 
275° 1220 6(CONTINUE 
76¢ 6 Té 2 
o77° 1260 TrUTShigtEGey) gé Té 274 
2786 IF((UFM7eEGeS) e@Re (uFMyeeGe6)) Ge Te 271 
79° 
+H e : NexXy TWO JF STAT gMents ASSUME PLOTTING OF MODEL PELYGSNS 
gf ¢ 1s enuy 6 EINS DONE FRE™ tabPhLey EUyPUT BN MaG yaPe 
e 
He € TL@@P {S ,EQ. 4 ONLY WHEN We ARE PLOTTING THE MODIFIED POLYGON 
ages IF(IL@@P-EGe1) GA TE 302 
2 a ee Ge 78 271 
286° 8 270 IlTeKFxN 
87: me web Waar aurea sgn. 
° 2 Fg RM 10° 10x, 
239* CC TIS geCaTa bLats tNrek fegrate DATA FOR EAC 
290: C POL YGeN 
2gi° IF (TSh(7) 158405550554 
2926 554 sak ah Lh dell 
293° YY gSSELZ(K) /PFACgPDIS 
94s YPaevyeVIT 
S58. Ath yPecSeere° eRe YPOeLEee0) NCD Raed! Ge Te 270 
296° ALL SYMBOL ( xxsYYsHTs ICHAR, Ge QaNCOE) 
2976 555 CONTINUE 
i 298° NCDE » #2 


299° 27¢ CONTINUE 
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300° 271 CONTINUE 


301° ICHARSI CHARS, 
3026 272 IF(LN@eL) 145,290,145 
E | 303° 290 CONTINUE 
| 304¢ IF (3SwW(41))29142914700 
E | 308¢ 291 JF (KSW(6)eEGeQ) GO TE 300 
4a 306° TLO60P et 
307° G6 Té 160 
| 308° 300 Lihat eBRe (dFMT0EQe6)) GO TA 330 
i 3096 302 3+9 KakFXN, 
310° REAR TAPE) 304) Jo FX(K) @SSELZ(K)sDNOT(K) 
j 311° 304 FORMAT( IBeF4qe2s20XeF ic e2s36XeF 1600) 
3126 31¢ CONTINUE 
3136 C NOW PLOT ELEV,8Ga, WEIGHT, SSELZ,AS REQUIRED BY SENSE 
314° C SwITCKES 
315° NCOE «= ef 
1 316° IF (1SwW(4) 155625576556 
| 317° 556 06 590 KeKFXNyM 
318° XXBFX(K)/XFACT 
319° YYSFZ(K) *#QeOO1/ELFAC*ELOIS 
320° YPQsYYeVIT 
321° IF (YP@eG lg eORe a, NCDEse4s GO TO 590 
4q 323° NCDE ene 
i 324° 59¢ CONTINUE 
E 325° 557 CONTINUE 
| 3266 C NOW PLOT O88. ERVEP + CALCULATED G 
3276 1F (3SW(5) )58g8,559,558 
328° 558 NCDE « 94 
| 329° De 899 KeKFXNsM 
330° XXeFX(K)SXFACT 
331° YY#SSELZ(K)/GFAC+GDIS 
i 333° YPOnYYeVIT 
| . IF(YPOeGEe2@9 .ORe YPOeLEeO) NCDEsels GO TO S99 
3346 59; CALL SyMBOL(xxsyysHTs11s00eQeNCOE) 
335° NCCE#«2 
3366 599 CONTINUE 
i 337° NCOE » af 
338- JPEN®3 
i 339° De S92 KeKFXNsM 
340° XXSFX(K)/SXPACT 
| 341¢ YYSQGA(K)/GFAC#GDIS 
342° ?iten ee. 
343° IF(YPQ@eGEe29 sORe YPOekEeQ) NCQG#eys IPEN*3s GO TO 592 
3446 Cc CALL SYMBOL (XX, YY,HTs090 "Os NCDE) 
3456 CALL PLOT(XX,YY, JPEN) 
34660 NCDE #02 
347-6 IPENs2 
348° 592 CONTINUE 
349° 589 CONTINUE 
350° C 
951° C CHECK JF PLOT 2@=D BAUGUER ANOMALY 
352° C IF S@, PLOT LINE WITHOUT SYMBOL 
353° Cc 
354° IF(ISW(8)) 588,588,57¢ 
365° 57¢ IPENS3 
3566 06 S85 KeKFXN,M 
357° MKGFX(K)SXPACT 


358° YYsBG20(K)/GFAC + GOIS 
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360°¢ IF (yYPOcGEe29e ORe ypOekEeQ) IPENe3; GO TE 585 
36\°¢ CALL PLOT(XX, VY, JPEN) 
362° IPENe2 
363° 588 CONTINUE 
364° 588 NCDE e 94 
365¢ IF (1Sw(6) ) 562,562,561 
366° 56, 06 893 KskFXNsM 
967° XXeFX(K)/SXPACT 
368 (Y8OwGT(K)/KFACOWOIS 
369° YPOSYYeVIT 
370. IF(YP@,GEek9 eORe YPOsLe00) NCCESet) Ge ve 893 
371° CALL SYMBOL (xxe YY¥eHTs 4eCeOsNCOE) 
372¢ NCOE#e2 
373° 593 CONTINUE 
3746 562 CONTINUE 
375° 330) 6(WRITE(IIOUTs332) 
3766 332 FeRMar('LasyT PeLYGen @F MeDEL PLerreo') 
377° ; IF (1Sw(1) 133323334700 
378° 333 CALL PLOT(XXsvYs999) 
379° CALL EXIT 
380- 70C ITAPE 8 106 
381° c SETTING Up CONSTANTS FOR eran SPFMT COLUMNS 
382° C BOIST = LENGTH OF TICK LINE IN INCHES 
383° C aANGB = ANGLE IN DEGREES OF ck LINE FROM HORIZONTAL 
384. C UPWARD ANGLE #& + ANGLE 
385° C Bee shee ANGLE © «© ANGLE 
3866 C YFaC = KM P RE ANCK FaR PLOTTING COLUMN 
387° C SEP » SEPARATI N OfSTANCE IN INCHES gETKEEN COLUMNS 
388s DEGRA ® 397653929E"p 
389-6 RADEG = 87029578 
390° RANGBe ANGB « DEGRA 
391° AC # COS(RANGB) 
3926 AS # SJN(RANGB) 
393° AS#@40Q2AS 
3946 KOA® 0 
995° KM8a O 
396° KYRe 
397° BOIST#9 025 
398. ANGBs0.0 
399° YFACeYFACT 
400° KGDA®Q9 
bole KGMB86 
4026 KGYRa0 
403* KGRMeo 
4O4e ZHT e400 
405-6 HGT#0,.07 
406° C 
407° mm TE TEL IIIT CLT tii ti it 
408° C wFrT © 4 FAR GSUM FARMAT 
4O9« CC uFMT & 2 FBR GSUM fn 
4106 C FMT © 3 FOR irr be DA 
e14° CC yFeT © & FOR EISMICITY DATA 
ei2° C FMT = § FOR MODEL POLYGENS 
413. C wuFMT § 6 FOR TALPLO@Y INPUT 
aise C vFMT «© 9 TO TERMINATE 86 
415° Cc SORA tnseegesnstdaanaaeed 
4166 701 READ (J INs 702) UFMT 
: 417° Jo2 FORMAT; 14) 
#186 703 OUTPLT FMT 


419° GO TO (710471027502 800s 145s 115¢ 3334393934996) UF MT 
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b206 
421¢ 
4220 
423¢ 
4240 
4250 
a26« 
4276 
428 
e296 
430° 
H31.6 
4326 
433° 
4340 
435° 
436. 
437 
438 
439° 
44Oe 
4410 
4420 
4430 
e4be 
445e 
e4be 
4a7e 
448e 
4490 
450°« 
45i¢ 
4526 
453° 
454%e 
455° 
45660 
457° 
458e 
459 
46Q° 
461° 
462° 
463¢ 
464e 
465° 
466° 
467° 
468 
469° 
470° 
471° 
4726 
473° 
4740 
475° 
4760 
477.6 
4786 


oon 
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PLOTTING GSM DATA 
71¢ CONTIAYE 
IPENe3 
712 CONTINUE 
IF (ISW(30) eEGeQ)JTAPES{IGO TH 733 


INITIALIZE GINOT JF THIS IS THE FIRST READ FOR GIN@T 
713 Tec lGSUmMeEG e141) Ge TE 7244 


KKsQ 
CALL GINOT (I TAPE, UTAPE, KK, KGDA,KGMB, 
1 KGYR,KGHM, 1O1F, 1seRC,RLAT, RLQNG, ELEV,K977,685G, 
2 IDEPsFa,@G, TC, TELCs IGCaRFAs IREGC, IFFC, IA, IF BC) 
IGSUMe4 
714 KKe4 
CALL GINOT(ITAPEs,vTAPE,KK,KGDA,KGM6, 
1 KGYR,KGHM, 1OTF, ISORC,RLAT,RLONG, ELEV,KS77,08SG, 
2 IDEPs,FAs BGs TCeIELCe I QCsRFAsTREGC,IFFC, LAs IF BC) 
IF (KKeEGe8)GE TA 700 
IF (KKeEGeS)G6 Te 999 
63 KGDAQsKGDA 
KGMO66 skGMé 
KGYR@ eKGYR 
KGHM@sKGHM 
73 CEPTHalDEP 
IF (IDEP) 78474.78 
74 WEIGTSELEV 
G8 Te 64 
78 MEIGT «a »CEPTH 
64 CONTINUE 
CONVERTING MEIGT FROM METERS TO KM 
HE IGTeHEIGT#0 2001 
DETERMINE CISTANCeE FROM ORIGIN 
G8 Te 40 
720 YYsGDISe(FA/GFAC) 
XX@DISTKM/XFACT 
YPasYYeVIT 
IF (YPO.GEea9» OR» YPOeLEeg) IPENegsGO TO 743 
IF (1Sw(14))721, 721,722 
PLOTTING A SMALL CIRCLE FOR FREEeAIR 
7214 CALL PLOT(XX, YY, IPEN) 
IPENse 
G8 T8 723 
PLOTTING ONLY A DOT FOR FREEeAIR 
722 CALL PLOT(XX,YYs3) 
CALL PLOT (XXsYY,2) 
CALL PLOT(XX,YY,3) 


Ge Té 723 
ChECKING IF ALSO PLAT BSUGUER ANOMALY 
7e3a IF (1Sw(2))72827082725 
PLe?T BOUGLUER ANOMALY 
725 xTexx 
Y76GO1S+(8G/GFAC) 
YPOnYTeVIT 
IF (YPG+GEea9e ORe YPOeLEeg) GO Te 728 
CALL PLOT(XT,YT,3) 
CALL SPOT(XT,YT) 
CALL PLOT(XX,YY,9) 
CmuECKING TF aLS@ PLAY He TGher 








soe Oi ae Re sats on Ee Te ee noe bi aa aati ee ee 
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+ amin SAS 
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480¢ 730 XTeXxx : 
a8. YT ekEIGT/ELFAC _ 
4820 YPOeYTeVIT ; 
483. IF(YPQ,GEe29. ORe YPOeLE+O) GO Te 712 
48he CALL PLOT(XTsYTs3) 
485° CALL SPET(XT,YT) 
860 - CALL PLOT(XXsYYs3) 
487-6 Ge Te TE 
e88e C PLOTTING SPFMT DATA 
489. 75C IF(ISW(92)eEG20) ITAPE ef 
490¢ Cc 
- 4946 f ReaDInG U OF TeRenre WeRLOD sersmMyC ReFRaCryen CoMPrLarreNn 
492¢ ¢C 
493° C INITIALIZING PINOT, IF THIS IS FIRST READ. 
4946 IF (IPINeEGe1) GO TE 782 
4956 KK s 0 
4960 CALL PINOT  ITAPEs TAPEskKalSTASKEYs ATs ATMs KNS, 
4976 1 ONGa L OMe KEWs VEL a THICK as IMANTANELEVaNg se NQeN3eNbomMETs TVRs IDESC 
4986 2 BINE.STHIK, CRVNSWGTN,AVATN, CRVW, AGTH, AVWTH) 
4996 IPIN # 1 
500¢ 752 kKel 
SOle CALL PINO@T( ITAPE, TAPE, KKa ISTASKEY,LATSLATMs KNS, 
5020 LONG, LOM, KEW, VEL, THICKs IMANT »NELEVyNy yp N2sN3,N¥, METZ TYR, IOESC, 
503 5 CINE, STHIK, CRVN,WGTN, AVWTN, CRVW, WGTW,AVWTW) 
Soee 18 IF(KKeEGe&)Ge TA 700 
508¢ IF (KKeEGe9)G@ Te 999 
506 20 CONTINUE 
507° VEL (1) a (FLOAT (Vi)) #094 
50a VEL (2) S(FLOAT( U2) ) #004 
509¢ VEL (3) (FLOAT ( U3) e004 
5106 VEL(GISCFLOAT( UG) ¥#O 04 
Siie VEL(S) S(FLOAT(YS)) #0°4 
Size VEL (6) 8 (FLOAT (6) ) #008 
513° VEL (7) 9(FKOAT(U7) #001 
Side VEL (8) a (FLOAT (U8) #004 
515. TH CKCL) s (FLOAT (KL) ) #064 
516¢ Hiek(2)a(PLeAT(K2)) #004 
547° THI meats LOAT(K3))*Q04 
Sig. THICK 4) S(FLAAT(K4) )#0,3 
519° THICK (S) (FLOAT (KS) ) #004 
520° THICK(6) S(FLOATI(K6) )*Q04 
52i¢ TI CK(7) SC FLOAT(K7) ) #004 se 
522° Lasgo hd Td ienetiek i 
5236 VMANTS (FLOAT (IMANT! ) #091 / 
S240 ELEVeNELEV \ 
5256 ELEVSELEV*®Oeo4 \ 
526. 50 JF (Nite) 70,60,70 
i 5276 C SEA SEISMIC PROFILE 
H 5286 6c¢ VELWS 405 
i 529-« WATTKe ELEV 
i 5306 Ge T6 gO 
; 531° C LANO SEISMIC PROFILE 
i 532° 70 VELWS oro 
i $336 WATT Ke 00 
: 534° C MAIN PLOTTING L86p 
‘ 535° 86 RLATM = LATM 
: 5366 RLOM 8 4 
: 537° — RLAT sOMTOR(LAT,RLATM) 
| 538 RLONG sDMTOR(LANG,RLOM) 


| 539° IF (KNS@NNS)54, Sas 54 





540e 
54te 
S4p°¢ 
543. 
5aae 
5450 


54660 . 


547.6 
548e 
549 
550-6 
- 551° 
552¢ 
553° 
554-< 
555° 
556«¢ 
557¢ 
§58e 
559° 
560° 
5éi°¢ 
562¢ 
563° 
564° 
565-6 
566¢ 
567° 
568 
569, 
570°¢ 
571° 
572¢ 
573¢ 
5740 
575-6 
576° 
577° 
578e 
579° 
580° 
58ie 
582e 
583° 
584e 
585° 
5866 
587 
588s 
589e¢ 
590° 
§91° 
592° 
593° 
594° 
595° 
596° 
597° 
598° 
8996 
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S2 RLAT » eRLAT 
54 IF (KEWeNEW)§8,56258 
56 RLONG s eRLONG 
58 CONTINUE 
C OETERMINE OLSTANCE FROM ORIGIN 
Ge TO 40 
454 XXeDISTKM/XFACT 
YY #9 00 
ALL PLOT(XXsYYs3) ae 
ALL SPLOT ( ISTAPRLAT,RLONG, VEL, THICK, VELW, WATTK, VMANT »X% 
1 =- YFACs ZH, HGT, AC, AS ANGE, BOIST) 
Ge Te 780 
C PLOTTING SEISMICITY DATA 
80C CONTINUE 
TF (3SW(96) eEGeO) TTAPE@1 


¢ 


¢ 
¢ INITIALIZING YINOT, IF THIS TS FIRST READ 


IF(IYINeEGed) GO TE 801 


KK #0 : 
CALL YINGT (TAPE, JTAPEsKKs 
1 ATURE a ett le ala kM, SEC,CLAT,KSN,OLON,KWE ,OEPT,AMAG, IMS, 
2 TSOS,INTSs OLAS, 1 TSys ISEICHs TVObCs INONT, TwGs TFEGs iMSs LASP, 12H 
3 ICE, IMGs TAUTH, JGHY,NPP, 1OQ, 1LMs IS34 152) 
C 
IYIN # 4 
801 KK a i 
CALL YINOT(ITAPEs TAPES KKe 


ISRy,1SRe,KDa, KMO,KYR, KM, SEC, OL AT, KSN,OLON, KWE DEPT, AMAG, IMB, 
1808, INTE sIOIAS, 1TSU, [SE ICH, 1 VOLC, INONT, [AGIFEG, IMS, IASP, ZH, 
1CEs IMG, AUTH, 1GHY, NPP, 16G, [L4,1S1, 192) 

IF (KKeEQe8) GO TE 700 

IF(KKeEQs9) Ge TE 999 

C OTERMINE OLSTANCE FROM ORIGIN 

KGDA akKCA * 

KGMOaKMG ~ 

KGYReKYR 

KGHMaKxkM 

KGQA@sKGDA 

KGMA69KGME 

KGYR@ ekGYR 

KGHM®@ 9K GHM 


KL #0 
CALL DNAV(DLATs KSN,OLON, KWEsRLATSRLONG KL) 


G6 Te 40 
820 XXsDISTKM/XFACT 
YY¥aeDEPT/YFACT 
YPOSYYeVIT 
IF (yPOeGEe@9e ORe ypBeLEeg) GEO 78 800 
CALL PLOT(XX,YYs3) 
CALL ANOV3(XX, YY,DEPT,AMAG) 
G6 Te 800 
4c CONTINUE 
Cabl CISAZ(RLAT,RLONGSRILTARILGs 1 ,AsB, 01S 7KMC) 
IF (ANG) 44044, 42 
42 IF (A=435)48048046 
6% 1F(A=225) 48248, 46 
46 OJSTKMseDISTKM 
48 CONTINUE 
’ TFIDISTKMeLTBLEFTs OReDISTKMeGTeRIGT) [608 * ;86B +4 
Ge TO (72007200451s820) yFMT 


Wr 
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600° 49 OUTPUT '66B! 

601° GO TO (712712,7522800) VFMT 

602¢ 996 ee tt, 

603¢ 997 PORMAT( LENT e 

604s 998 FeRMay(im0, ! END no PRECESSING!,/, 

605¢ * 15,'DATA POINTS OUT OF Ler. BOUNDS") 
6068 999 WRITE(II@UTs998) 1808 

607° G@ Te 333 


6086 ENO 


5 
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1 > MKe 


PROGRAM N@AA ~ 

VERS@AN OF & JUN 74% TOE DB LAMENT 
VERSISN OF 19 JAN 14974 T@ REMAVE ABSRT FOR BUFF IN ERROR 
FSR INITIAL ONVERSION 68F CeA8G AND USGS 4974 IDSE 
INITIAL VERSION 10 DECEMBER 1973 

HESKANIAN G METER 


DIMENSTAN IBUFIN(20¢50s2)4 IBUFS8T( 32.5002) 
OIMENSION 14(35),CRUISE(8) 

DIMENSION JZ2(9)e1W(35) 
ITAPEs1 

JTAPEs2 

TIN®105 

16UT#108 

IRECis1 

KKsQ 

KIsl 

KBee2 

IFLIJ Pai 

JFLIP sy 

KFLIPst 

NFLJ Ped 

ICNT #0 

NREC ao 

ELEVsoe 

I8UTSWso 

NIN#50 

NOUT sO 

READ( TIN» 1005) IS@RC 
WRITE ( 18UTs21002) ISBRC 
IFFC#16 b 
ea, 


DEGRA#10745329E°2 
RADEGa57 029578 
IENDKEYs09 

TELCa5 : 
IREGC#O 

IFBCa0 


DENS =2067#1003 - - 
DENS# {064 1 MaRS 

BUTPUT ' PRAGRAM NBAA VERS OF Su otN Fe — 
BUFFER LaGIC FeR 1/P 


CALL BUFF IN(ITAPE, Os TBUFIN(1,40TF LIP) 01000) 
CONTINUE 

IF (NINeLT¢50) GO TE 90 

CONTINUE 

CALL ICHECK(ITAPE,IKEY,NI) 

G8 TO (20250230040) IKEY 

BUTPUT ' WAITING FOR I/P', [E6080 


G8 T6 15 
BUTPUT YEND OF FILE ON ITAPE Ns TEGDay 
Ge Te §0 
BUTPUT 'BUFF IN ERROR! 
CANT INUE 
NIN#O 
NFLIPsIFLIP 
IFLIPe3eIFLIP 





y7: te A+ : 


A RN nC RN mE RA SE PES PRN LEI LRN ORIG TSA NEO 


IF(TE@DeNEo1) CALL BUFF IN(ITAPE,0,IBUFIN(151,1FLIP) 21000) 
INPUT LOGIC 


CONTINUE 

NINaNINGL 

IF (IE@DeNEe1) GB TB 95 

GSING T8 EBF PRECESSING 

IFCIENDKEYeEGe1) GB TE 999 

NINCHK&NIN#20 

IF (NINCHKeGEeNI) JENDKEY a4 
5 CONTINUE 

DECEDE (802100321 BUFIN( 4a+NINeaNFLIP) ND) 

(CRUISE(I),121,8),I1TIMEZ, TYR, IMO, LDA, THRs IMIN, 

2 DLATsCLOANGsNAVPT,NAVTYP, [CURAZ, CURVE, IUNCFATH, ICARSM, 
3 IMATHZ6, IMAG, [RESMAG, IFA 


EDIT LeGIC 


IF (NAVPTeNEeQ) GA TE 10 

IF (IFAsEQs0) GA TE 10 

IFCITIMEZeNE*®O) CALL CHGMT (IDAs IMga TYRa KHMs KTZaKGDASKGMS 2 KGYRe 
1 KGHMaNTZ) 5 KTZ#9 3 GB TS 100 
KGDAsIDA 

KGM8 #1] M8 

KGYRs YR 

CANTINUE 

ICURVELSIDINT(CURVEL#10¢) 
RLATsDLAT«#DEGRA 

RLENGsDLONG#DEGRA 

THEGBGINTF(RLAT) 

DFASFLBAT(IFA) wo} 

FAsDFA 

GABSsTHEB+DFA 

CALL 88G(K977»68S%, GBS, K8) 
TDEP2sCSRRM 

DMINsFLAATCIMIN) 

DMINTsDMINweod 

JMINaIDINT(DOMINT) 

DUMINSFLOAT(UMIN) 

MINTS IDINTCOMINT#DUMIN) 

KHM® UMIN*IHR#100 

KGHMskHM 

DTZ*FLEATCITIMEZ) 

KTZ2IDINT(DTZ#el1) 

DEP=FLBAT(IDEP) 
BGsFA4(0004185*#0ENS#DEP) 

IFC IDEPeEQeQ) 8G8999e0 
PLATSDLAT+90eJLTKEY*®PLAT 
PLANGSOLONG*+180 «4 GKEY =PLONG 

IAKEYs0 

ENCSDE (3501004012) (CRUISE (I), 18128) aKTZaMINTsNAVPT, ICURAZs 
LICURVEL, JUNCFATH, JMATHZ8, IMAG, IRESMAG 
CALL UNPKBY(1ZsIws35) 

08 120 184435 

TA( Ty eISbL¢IW(1)s 24) 

120 CANTINUE 


C 
Cc sUTPUT LaGIC 
Cc 





1766 END 


250 7 
120+ 300 CONTINUE q 
121° NOUTsNO6UT+1 
1226 ENCODE (128414001, 1BUFOT(y,NOUTsJFLIP) »ND) [RECys I1SSRC,<GI Ave ; @ 
123+ 4 KGYR» KGHMe CLATs DLONGs ELE Vs K977, 8BSGs IDEPs FAs BGe TColELCeIGCe i 
1246 2 RFA, IREGCeIFFC, IAs IFBCaLTKEYs LGKEYs TAKEY ; 
125° 305 CONTINUE 
126<0 NRECeNREC44 
1276 IF (NSUTeLT¢50) GO TA 10 
1286 ¢ 
129° Cc BUFFER LOGIC FAR 6/P 
130¢ Cc 
4316 310 CB8NTINUE 
132° IF(LOUTSWeNEed) [8UTSWs1,GE6 Te 350 
1336 JKEY aI CHECK ( JTAPE) 
134. GB Te (320s350,330,240) KEY x 
1356 320 GUTPUT WAITING FOR 6/P' 3 IEBDs0 
1366 Ge TB 310 
137° 330 BUTPUTTEND 6F FILE JTAPE® sIEBDsy 
138. G8 78 999 
139° 340 BUTPUT 'BUFF BUT ERRAR! ; IE8Ds1 
140« G8 T8 999 
: 141° 350 CONTINUE 
4 1426 N6UT sO 
S| 143. KFLIPsJFLIP 
3 144e JFLIPs3*JFLIP 
. | 1456 CALL BUFF BUT ( JTAPE, Os IBUFET(124eKFLIP)s1600) 
: 1466 G68 Te 10 
E 147° C 
: 1486 Cc END 9F eB 
| 1496 CC 
| 150° 999 CONTINUE 
i 151. 910 CANTINUE 
3 152- JKEYsICHECK(JTAPE) 
: 1536 GB TS (9202950s9302940) UKEY 
| 1546 920 BUTPUT 'WAITING F8R 6/P! 3 IEBD=O 
. | 1556 Ge TB 910 
| 156+ 930 BUTPUT 'BAD JKEY! 3 TEBDey 
e | 157° G8 T8 9460 
. | 158+ 940 BUTPUT 'BUFF 8UT ERROR! 3; IEeDel 
| 159° G8 Te 960 
: | 160° 950 CONTINUE 
. | 161° JWOS®NBUT#50 
162. CALL BUFF BUT(ITAPE,Os,ISUFET (1,1, dFLIP) »UWOS) 
e | 163° 960 CONTINUE : 
= | 1646 END FILE JTAPE 
a 165° BUTPUT NREC 
| 166« BUTPUT "ALL DONE? 
1676 Cc 
168° Cc FERMATS 
169° Cc 
170° 1001 FERMAT(Iqsl es Sloe lesa 9euaF Jers l3eF Geese 15a oF GeqeF bots 
a 171° 1 2leeFoetelyslee35Age4Xelis2elgel2) 
e | 172° 1002 FARMAT(1Xs'THIS RUN PRACESSED SSURCE CODE',I15) 
; 173° 1003 FARMaT(SALs[5e31201Xs 2s ZeF Beso Ge4a2 {la lasFeoleixs2y5e [evixe35) 
t 174° 1004 FORMAT (8A403110213015s120215) 
3 175° 1005 FERMAT( 15) 
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le Cc PROGRAM PRAFG 
i ae C 
4 3° DIMENSIAN PLT(15) 
| he DIMENSIAN 7A(35) 
5. C 
4 be c VERSION SF 2 BCT 75 718 cALL GYNBT 
Je C PRAGRAM PRAFG, PLATS PRSFILE OF SELECTED VARIABLE 
Be c READ FRBM GSUM FORMAT 
Se € 
10> c 
tie C xX AXIS PROPBRTTONAL TA ELTHER VISTANCE OBR TIME ALONG TRACK 
126 Cc 
13° C IF LCNT#S000 BR GREATER THEN TIME ANOTATION 
146 C IS DELETED 
156 c 
166 C HAS DATA AND DISTANCE LIMITS AS INPUT 
17° C 
186 € FAR SELECTION BF SINGLE STATIBN SSW(5) = 4 AND MSTA READ IN 
196 Cc AS THE STAIGN NUMBER TO BE SELECTED 
206 C USES GINO8T, FIND, ISW, STAT, EvIL» CDATE, MCy8L, SPOT, 
2le C 
oa, Cc SSW(5)8, T8 SELECT SINGLE STAIO8N NUMBER 
236 Cc SSW (14) 8 UP TA Call FINO 
P4ee Cc 
256¢ € 
266 DIMENSI6N IBUF (1000) 
276 CG 
Ze C 
29e TIN @ 105 
30-6 II8UT = 108 
Bie KK#0 
32° JTAPEse 
32° KIe4 
34. ; INNT@ I SW( 02) 
25. CALL GINOT(ITAPEs JTAPE a KK) 
366 CALL PLOTS (IBUFs #1000) 
37° WRITE (1JOUTs,600) 
38-6 600 FERMAT( ss 1PRBGRAM PROFG VER @ BCT 751) 
° Cc 
eo, Cc SHESEHESEEEEHHHEHHREEEEHEEHEHEHHOEHEHHHEHEDEHE EHH HEED 
41. Cc ITAPE = INPUT TAPE 
426 ITAPE = 1 
4 je & PHSSOSEEO EEE REHE ES HEOOEEEEHEHEEHHEHEEEE EEE PEER HERE ED 
4he C 
45Se NE®F s (9) 
46. XX8020 
47° INI Te4 
4Be C ODIJFACgNUMBER BF N MILESsKM,8F HBURS PER INCH ON PLAT 
: 49 C YFAC @# ENGINEERING UNITS PER INCH BN PLOT FAR Y DIRECTIAN 
50. C LONy @ TYME AN@TATION EvERY LONT PBINTS PLOTTED 
Si. C MIKk™M s O FAR NAUTICAL MILES» 1 FOR KILOMETERS 
526 c NFILE = NBe OF INPUT REELS TA PROCESS 
53. ReaD (TIN,4) DIFaC, YFaC, LCNT, MIKM, NPLO@Y, NF ole 
P| She 4 FARMAT (2F100¢Os 415) 
556 SUTPUT DIFACy YFAC) LUNTs MIKMs NPLOT) NFILE 
56. C ULIMSUPPER LIMIT FAR PLOTTING DATA VALUE IN ENG UNITS 
57. C BLIM=sBGTTOM LIMIT FOR PLUTTING Data VALUE IN ENG UNITS 
SR. C DLIM » DISTANCE LIMIT IN INCHES FOR PLOTTING DATA pBINT 
596 C IxDIRe, FOR X AXIS PROPBRTIONAL TA DISTANCE ALANG TRACK 
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60° Cc 22 FBR X AXIS PROPORTIONAL TO TIME ALANG TRACK ; 
61-6 READ (TINs6) ULIMe BLIMs DLIMs IXDIR g 
626 6 FORMAT (3F10¢Os 15) : jf 
636 Cc XaALO8W s aALLa@WaBLe INCHES FAR LENGTH OF PLaT ; 
b4e [= BEFBRE REINITIALIZATION bl 
65¢ C DM8vE = INCHES TO BE SPACED BEFORE REINITIALIZATIAN 3 
666 J READ (TIN,8) XALOW, DMOVE 

47-6 8 FORMAT (2F 100) 

68-6 BUTPUT ULIMs BLIMs DLIMs IXDIR, XALOW, DMBAVE 

69° IF (1Sw(14)11292129,128 

70° 128 READ (TINs9) LIMDA, LIMMBs LIMYRe LIMHM 

71° 9 FORMAT (615) 

72. BSUTPUT LIMDA, LIMMA, LIMYR, LIMHM 

736 111 CALL FIND (LIMDAs LIMMG, LIMYR, LIMHM, KGDA,KGMAsKGYR 2 KGHMs INDK) 

Tae IF CINDK) 41442 1290 129 : 

756 129 CB8NTINUE 

760 READ(IINs9) MSTA 

77. CALL WHERE (X®RGs YORGs, RFACT) 

7B. CALL PLAT(XERG, YORG, «3) 

7960 IF (8990*LCNT 313021320132 

EYer 130 NCNT#O 

Bie G8 Te 134 

Bee 132@ NCNT®LCNT 

B4e 13. CO8NvVs0e53959 

B55. G@ Te 52 

Rbe 14 CBNVS49o 

87. 50 CONTINUE 

3B 15 CONTINUE 

Re CALL GINOT(ITAPE,JTAPEs KI» KGDA,KGMO@sKGYRyKGHM, IDIF, ISARC, 

906 * RLAT,RLONG, ELEV,K977,08SG, IDEP,FA,BG, TC, feLC,1GC,RFA,IREGC, 

91e * IFFCo TAs TF BC) 

926 52 CANTINUE 

93° IF(KI*EQ*9) ug TO 44 

94-e IF (1SW(5)eNee$) GO 78 70 

956 IF (KGHMeEQeMSTA) GO TB 70 

96° GB T8 52 

976 44 GQUTPUT "PLOTTING C@MPLETED! 

986 CALL PLOT(XXs YY2999) 

99-6 CALL EXIT 

190° 70 DEPTHsIDEP 

101° IF (IDEP) 78+74978 

102> 74 WHEIGT#®ELEV 

103° GB TB 80 

104 78 HEIGT = eDEPTH 

105. 80 A8K9770977 

106° AsA#1000¢0 

107+ GSBSsO8SGeA 

108+ BGCOM=BG4TC 

109- 100 PLT(1)sKGHM 

110° PLT(2)e8IS@RC 

Tile PLT(3) sELEV 

112. PLT( 4) sDEPTH 

1136 PLT(5) sHEIGT 

114. PLT(G)SFA 

115.6 PLT(7)*6G 

1166 PLT(8)e#TC 
117° PLT(9) s8GC9™ 

118-6 PLT(1O)SRFA 


1196 PLT(11)#G68S 
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KDASKGDA 
KMO8KGMB 
KYR®KGYR 
KHMSKGHM 
DAYSKGDA 
YMA 8KGMA 
YEARSKGYR 
HOURS KGHM 
XLATSRLAT 
YLONGeRLONG 
DATASPLT(NPLOT) 
IFCINITe#4 125230225 
DISTM#O e0 
TIMD80¢0 
KDABBSKGDA 
KM@BSKGMA 
KYROSKGYR 
KHMB eK GHM 
INITs0 
IPEN®S3 
G8 Te 50 
TLATSABS(XLAT) 
RADI "63712290 
DL TOL s(XLATeXLATA) #RAD] 
OL GDI #( XLONGeXLNGB) #RADI#COS(TLAT) 
DISTMBSORT((ABS(DL TDI) )##2*(ABS(DLGDI]) )##o) 
Call CDATE(KDAS,KMA8,KYRB,KHMG,KDA,KMQ,KYR,KHM, TIMD) 
XLAT@@exLAT 
XLNGY®XLANG 
KDABEKDA 
KMBOsKMB 
KYROSKYR 
KHMABKHM 
YY®DATA/SYF AC 
IFCIXDIR®4 )54s56054 
DIS®TIMD/DIFAC 
GS Te 58 
DISe(DISTMaQgeQOteCB8Ny) /DIF AC 
IF (DIS*DL IM) 3652365360 
XX SXX300 
WRITE(TIOBUT,61)KDA,KMO,KYR,KHM 
FBRMAT('DLIM's 313015) 
CALL PLAT (XXsQ°003) 
G8 Ts 25 
IF (DATA*ULIM) 3682 3662 366 
WRITE (TISBUT2 67) K DAs KMOsKYRe KHM 
FORMaTO'ULIM', 373,75) 
G8 TY 160 
WRITE (TIBUTs 168) KDAs KMD a KYRs KHM 
FARMAT('BLIM',313,75) 
XXSXX4+DIS 
CALL PLAT (XXs0e0s3) 
IPENS3 
G8 Te 15 
368 IF (BLIM#DATA ) 36901675167 
369 XXsxxe#DIS 
CHECKING WITHIN ALLOWABLE PLOT DISTANCE 
170) «ITF UXxXeKxXAL6w) 18021728172 
172 XX#XxX¢DMBVE 
IPENS3 
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180.6 CALL PLOT (XXeYYsIPEN) 
181° CALL WHERE (X@8RGe YORG, RFACT) 
is 1826 CALL PLOT (XORGs000s"3) 4 
1836 XXa0°0 
. 3 18346 CALL PLAT ( xxsYYsTPEN) q 
1856 CALL SPOT(XX,YY) £ 
1866 IPENSe r| 
1876 G8 TO 72 4 
188.6 180 CALL PLOT (XXsYYs IPEN) a 
189-6 CALL SPAT(XXsYY) 
1906 IPEN@|D 
191. 7Je CONTINUE 
1926 IF (NCNT®LCNT) 12093009120 
193-6 300 CALL NUMBER (XX» #5¢0» 0°076 DAY, 9090, ef} 
1946 CALL NUMBER (xXXs ©4089 00070 YMBs. 3000s #4) | 
195° CALL NUMBER (XXs ©4062 09072 YEARs SO0gs #1) j 
1966 CALL NUMBER (XX, ehe4, 0°07, HOUR, 9000, of) : 
197-6 CALL PLAT ( xxsVYe3) 
198+ NCNT84 
1996 G8 TS 15 
200+ 120 NCNT#NCNT+1 q 
2o1e BUTPUT NCNT — 
202 G8 TB 45 


203° END 
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PROGRAM PREJ4 


VERSIG6N 6 MAY 74s CHANGE USE BF SINB2 TE SINET 
VERSIBN SF 4 FEB 1973, T& GUTPUT DECIMAL DEGREES IN IA FIELD 
VERSI8N 8 F 25 AUGUST 19722 TO UPDATE YIN@8T CALLING ARGUMENTS 
VERSION AF 14 MARCH 1972@2ADDING IMANT TA ARG LIST Te PINOT 
VERSIO6N fF 23 AUGUST 1971 


PREGRAM PRAU4, PROJECTS SEVERAL DATA FORMATS 178 A STRAIGHT LINE 
CaN FRHCESS DIFFERENT FORMATS IN SAME RUN 
SN FARMaT CHSICE IN PUT CARD, PUT JFMTS IN BRDER DESIRED FAR 
PRACESSING DURING RUN 


JFMT ALLSWS CHSICE BF Data FARMAT TE BE PROCESSED 
YFYT = 4 FAR GSUM FERMAT 
2 FAR SEAGL INPUT FORMAT, @UTPUT IS GSUM FERMatT 
3 FAR SPFMT FORMAT 
4 FAR SEISMICITY DATA FERMAT 
7 FOR ACTIVE VALCANSES 


ITAPE I[S SET T8 (UFMT + 2) 
JTAPE «8 2 
KTAPE 820 


SHAULD FAVE ASSIGN CARDS FBR UNITS 293240526098 20 


UNIT 2 IS FOR SUTPUT BF PREVECTED DATA 
UNIT 3 FAR GSUM 
UNIT 4 FAR SEAGL 

UNIT 5 FAR SPFMT DATA 

UNIT 6 FAR SEISMICITY DATA 

UNIT 9 FAR ACTIVE VELCANBE DATA 

UNIT 20 FAR OISK STBRAGE BF GSUM DATA IF ISW(3)21 


STOP PRACESSING MAKE START DAY#99 
START CAY ® 99, PROGRAM G8ES TB 1000 AND CHECKS INPUT FERMAT 
LABELS FOR FORMAT CBDE NUMBER OF ZERA 


SSW(3) =» 4 TA BUTPUT GSUM DATA BNTE A DISK FILE, BNLY 
APPLIES WHEN JFMT # 1 8R 2 


€ 
C 
C 
C 
c 
C 
C 
C 
C 
C 
Cc 
(s 
C 
C 
Cc 
C 
C 
C 
C 
c 
c 
Cc 
Cc 
c 
C 
C 
(2 
Cc 
C 
C 
C 
Cc 
Cc 
Cc 
C 
C 
Cc 
Cc 
C 
C 
C 
C 
Cc 
C 


DIMENSION I1A(35)sUF (10) 
DIMENSI6N IDESC(6) a VEL(8) a THICK (8) 2X(8) 


CIMENSIBN NOW(4) 
DIMENSION IZ 9)eTW(35) 
CALL STAT 





RRR ererrenenrnrnnecrecrrerrnrenenreenecntcenemrcerenercnimnenetsicocmmssesetehapnamcstnrateincennisissiparneernremmeeememimtnsei ists aman ieee ARC AANA ONC CTE CELT EN CAE 


{ 
4 
4 
j 
: 260 i 
id 
53° NWON®4 : 
54e LINs105 4 
aSe TI8UTe10R ; 
5660 JTAPEs2 
57 JFCT#1 
58e vIJREC 80 
59° 1888 
_ 60° IREC1is1 
61° CEGRA#1.6745329E"02 
626 sare ranzeeso7e 
63° Cc PRINT CATE AND TIME OF VOB BN HEADING ~- 
bhe CALL TODAY (NOW) 
65¢ WRITECII8UTs13) NOW 
666 13  FARMAT(1X,4A4) 
676 wRITE(T 1LQUT216) ? 
68+ 16 FARMAT(IPRAG4 RUN» VERSION OF 6 MAY 19741) 
696 € 
70° ¢ INITIALIZING PROJVECTIGN REQUIREMENTS 
71° 
oe . KKeO 
736 CALL PRAJU(KKyRLAT»,RLONG, PLAT »PLONG,DISRs DIST) 
74e C 
75° Cc 
76° Cc READING @RDER THAT DATA FORMATS ARE 168 BE PROCESSED 
77. € 
786 READC TIN» 20) SFMT oUF (2) euF (3) s UF (4) aE (5S) a dF (6) 9 dF 07) 2 UF (8) UF (9) 
250 20 FORMAT(9I15) 
80° c 
Ble C 
B26 G START @8F BEADING New DATA FORMAT BEGINS HERE WITH SSW CARD 
&3e Cc . 
B4e 18 INIT#ISw( #2) 
85. CALL SETSKP(IND) 
K6e WRITE(II@UT,25) YFEMT 
&7° 25 FARMAT(HUFMT at,]4) 
88 ITAPE®uFMT+2 
89 G8 Th (402502802902100C2 10004110) SFMT 
90° #0 KKs0 
91° — CALL GINOTCITAPEsuTAPEsKKsKGDA,KGMB, 
92 1  KGYR,KGHM, [DIF, ISGRC,RLAT,RLONG,ELEV,Kg977,08SG, 
93° 2 IDEP»s FAs BGs TCa TEL Ce IGCaRFAsTREGCaIFFCs TAs TFBC) 
S4e Gea Té }o0 Fe 
95° Oo READ(TINSSS)IS8RCeIELC,IGC b 
96° 55 FARMAT(3I5) 7 
976 ELEV#0«0 
98« ‘ IeGReee 
996 TC29909 
100° RF AsO) 
101. IREGC#0,0 
102+ IFFC#0+0 
1036 IFBC#O 
1046 KK#Q 


1056 CALL SINGT(ITAPE,UTAPEsKKsKGDA,KGMOB,KGYR,KGHM, IDIF »RLAT, 
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1066 
107° 
108 
1096 
110° 
lite 
112° 
~113¢ 
114.6 
115° 
116¢ 
117° 
118° 
119° 
120. 
121° 
122° 
123> 
124. 
125° 
126° 
1276 
128« 
1296 
130. 
131° 
132 
133° 
134° 
356 
136° 
137° 
138° 
139° 
140° 
141° 
1426 
143° 
1446 
145° 
1466 
47 
tha: 
149° 
1506 
151° 
1526 
153. 
1546 
155° 
156° 
157+ 
158.6 





4 RLONGa KVNe KVE 2 K977 48 LOGRa KF As KBGa KCVNeA KCVEs 
2 KCDMaMTDCaMTeMAGLs MAGE, KETVE) 
CALL GINOBTCITAPEs,uTAPEsKKsKGOCA,KGMB, 


1 KGYR» KGHM, [DI Fs ISARCeRLAT» RLONGs ELEVs K977208SG, 
@ = IpEPa FAs BGs TColTEL Ca IGCaRFAs TREGCOIFFCs LAs FBC) | 
Ge T8 100 | 
89 CBNTINLE . 
KKs0Q 
CALL PIN@TCITAPEs UTAPEs KKs ISTASKEYs LATS LATM, KNS, 
1 LENG,LOM,KES, VEL, THICKs IMANTsNELEVaNt a N2gN3eNGaMET,IYR»s IDESC, 
2 DINE,STHIK,CRVN» WGTN,AVWIN, CRVWyWGTW,AVWTW) 
G8 Té& 100 
90 CONTINUE 
KK #0 
CALL YING TCITAPEsUTAPEs KKs 


ISRteISR2sKDAs KMBsKY RZ KiLMs SECs DLAT s# KSNs DLONs KWE s DEPT s AMAGs IMBy 
ISOSsINTS,IOIAS, I TSUsISEICH, 1VALCs INONT, IWGs IFEGs IMSs1ASP,IZH, 
ICE, IMG, TAUTH, IGHY,NPP, 180, 1LM,1S1,1S2) 

Ge T® 100 

C FHR PRESENT THERE IS N6 VOLCANSE STREAM 


11c G& TB 1000 
100 CANTINLE 


ig DO 


Cc READING START & END DATE @ ISKP CARD FOR EACH INPUT FORMAT 
IFLAGsQ 
READ(IIN, 2) ISTDA,ISTMO,ISTYR,ISTHM,IENDA, IENMO, IENYR, LENHM, ISKP 
2 FERMAT ( B312014s5xXe 3] 201 495Xs 


5) 
MOTTE (LIQUT» 265) ISTDAs SaTMOs Tet Ves [STHM, TENDA, TENMG, TENYR, 
1 IENKM,ISKP 
6365 FARMAT('*PRGG4! START CATE te3laal4e's FND DATE ',3l 2014s ty ISKP 
1'214) ‘ 
IF(ISKPeEGeo) GB TE B 
CALL SKPREC(ITAPEsISKP) 
GB 18(99948s99929992999,999) IND 


8 CONTINUE 
CrhECK IF END SF PROCESSING 


BY CHECK IF ISTDAs99 
IF (ISTOA&EG.99) GE TH 992 
INITIALIZATIEGN NOW COMPLETE 


READ IN DATA 


NOnnnn an 


15¢ GO TB (2003007 400250010002 10004530) UFMT 
2e0c KKei 
CALL GINGT(ITAPEs wTAPEsKKsKGDA,KGME, | 
4 KGYR,KGHM, LOI Fs ISORCARLATARLENGs ELE Vs K97749BSG, 
2 IDEPs FA, BGse TCyTELCs [GCyRFAs LREGCeIFFCs TAs IF BC) 
IF (KKe9)210,1000,210 
210 ae TS 186 


300 KKel 
CALL SINETCITAPEs UTAPEs KKe KGDA,KGMB,KGYR»KGHM, IDIF »RLAT, 


a KCDMsmMTOCe MTs MAGL sa MAG2s KETVA) 





ae ro ee 


RR Te Ta Ee ee ert ees TE NN OE Te ian - bai - -” 
BPAY «sj 
aa jones ORR eeemesemenemsc neem enters secon NT ed 


IF (KK~9)310210000310 

CBSG*IOGR 

SBSGDASGHOel 

FASFLOAT(KFA) #001 

BGsFLBAT(KEG) #001 

Ge Th 186 

KKal 

CALL PINO@TCITAPE,UTAPEs KKy ISTAZKEYsLAT»LATM,KNS, 
LOENGs LOmsKEws VELs THICK as IMANTsNELEVaNi a N2aN3eNGamE Ts LyRs IDESC, 
DINE, STHIKy CRVNy WGTN, AVWTNs CRVMy WGT Hs AVWTN ) 

IF (KK#9) 410210000 410 

RLATMsLATM 

RLEMSLSM 

CALL HAVINALAT ARLATMANNSaL ONG RLAMeKEWARLATZRL ONG) 

G6 TB 186 

KKs4 

YIN8TCITAP APE, 

FORT, rome kOAn eos KORG KHveSE Cs DLATsKSNy DLONSKWE s DEPT» AMAGY IMBy 
ISOS,INTS, IDIAS, 1 TSU, ISEICH, IVE8LC,INONT, IWGaIFEGs IMS, IASPyIZH, 
ICE, IMS, JAUTH, IGHY,NPP, 16Q,1LM,1S1,1S2) 

IF (KK=9)519910002510 

KL sQ 

CALL DNAV(DLATs ¥SNsDLON, KWEy RLAT,RLONGSKL) 

Ge T8 186 

530 Ge T& 1000 
186 CONTINUE 
IF (KK="9) 19929920190 
C CHECKING FAR EAR BN INPUT CATA 
190 vyDAskGDA 

JMGBKGME , 

WYRsKGYR 

whi sKGHM 

IFLaG JS A FLAG 78 ALLOW SKIPPING THe FIRST CALL Te FIND 
IF WE HAVE ALREADY FOUND THE STARTING PATE 


IF ( IFLAGeNEeQ) G8 TO Be 
IF(INDK,EQee1)} GS TA i5¢ 
IFLAGal 
CANTINGE 
IF(IENYReEQe0) G8 TA 851 
CALL FINO(IENDA, TENMBsTENYRy IENHMy UDA, JMO, JYR, JHM, INDK) 
IF(INDK»EGs1) G6 TE 995 

851 pene ENE 

&52 BNTINUGE 


START PRECESSING 


KK #NWeN 
CaLL PROU(KK,RLAT,RLONG,PLAT,PLONG,DISR,DIST) 
CHECKING IF DATA P8INT IS WITHIN AREA AND DISTANCE FROM PROV LINE 





Ce 
: 
tet ROE IEE REAL Me PETES oh gm RET WEA OH 


LE OR A OE ty REE RY AEE NSN ERY VEN HES I DO, 


ag egiahaanacsioene 





263 
2iee IF (KK42)599, 1502599 
213° 59s COANTINLE 
214- | JJREC 8 UREC +1 
215° c XsDISR*637109 
21be Cc BUTPUT x 
217° C 
2186 ie SUTPLUT DATA 
219° C : 
220° G8 TE (690260027002 80C21000410004830) sFMT 
221° 600 KKs=2 
22c°<e C 
ec3e Cc LEGIC BFR FUTTING RLAT AND RLONG VALUES IN ARRAY !'IA?! 
eche Cc 
eeSe C GReLPIKG VaRIABLES FAR GUTPLT UNDER ARRAY IA 
2cbe DLATSRLAT#RADEG 
227s DLENGSRLBNG*RADEG 
22e8e ENCODE (352608212) CLATsCLENG 
22Se¢ 608 FARMAT(2F9e4s17X) 
230- CALL UNPKBY(]Zs]Ws35) 
231° Ca 609 ysis35 
232° TA( 4) sISL(Iw(JU) 224) 
233° 609 CANTINLE 
: 234e € 
q 235° C PuTs PLAT AND L6NG IN POSITION OF RLAT AND RLONG 
236° ts: 
237° CALL GINGTCITAPE, STAPEs KKs KGDA,KGME, 
238. 1 KGYR,KGHM, IOIF, ISA8RC,PLAT,PLANG,ELEV,K977,G8SG, 
239 e IDEPsFA, BGs TCeoIELCs I1GCaRFAs IREGCaIFFCs TAs IFBC) 
240° IF (1SW(3) 190029002612 
2416 612 wRITE(KTAPE, 12) IREC1, IS6RC,KGDA,KGMB,KGYR,KGHM, 
2420 1 PLATsFLENGsCLEVsK977,8BSGs IDEPs FAs BGs TCeIELCy 1 GC, 
243° 2 RFAsIREGCAIFFC,IAs IF BC 
e+e 12. FORMAT (I yel4sglosl bear SebsF7epalaeF Gens lSse oF GeqeF args 
245-6 1 212eFSetstTisl2,35A1,12) 
2460 Ge TE 900 
247s 70G KKse2 
2486 KDECaC 
2496 CALL NAVST(FPLAT,PLENG,LAT,RLATMsKNS, 
250° 1 LENGsRLAMs KE Wa KDEC) 
251° LATM2RLATM 
2526 LEéMsRLOm 
253° CALL PINST(ITAPEsUTAPEs KKs ISTASKEYsLATsLATM,KNS, 
254e q LONG,LOMsKE Ws VEL s THICK, IMANTsNELEVs Nps N2sN3aNeeMETs TYRs IDESC, 
2556 2 DINE,STHIK,CRVN,WGTN,AVWTN, CRVW,WGTW, AVHTW) 
2566 G8 T8 S00 
2576 &CC KKse2 
258° KL sel 
259° CALL DNAV(DLATs KSN,DLON, KWE sPLATsPLENGs KL) 
260° CALL YINSTCITAPEsUTAPEsKKe 
Eg 261° 4 ISR1aISR2aKpAsKMBsKY Ra KEMsSECs DLATsKSNs DLENZKWE s DEPT 2 AMAGs IMB, 
262° 2 IS8SeINTS,IDIAS, I TSU, ISEICH, TV8LCs INGNT, IWGe IFEGS IMS» ITASPyI ZH, 
E 263° 3 ICEs IMG, ITAUTHs IQHYe NPP, 18G,1LMsI1S141S2) 
2646 Ge T& 900 


NT TD 


ang VM 





6 9h IRE LTNOEPREL OO 


G8 TE 1000 
IF(IENYReEGeO) GE Te 981 
CALL FIND(TENDA, IENMG, TENYR, IENHMy WDAs IMB, SYR, UHM, INDK) 
IF(INDKeEGeO) GB TE 1C0 
Ge Té 150 

G8 T8 150 

G8 T8 1000 
WRITE (I116UT,993) JIREC , 
FERMAT('END QF PRACESSING, RECORDS BUTPLT = ', 18) 
CALL EXIT 

WRITE (CT I@UT2996) JDAs UMOaJYRa UHM : 
FORMAT('END DATE PASSEC!,2X,312,14) 

CALL EXIT 

wRITE( II8UT,998) IND 

FARMAT(+tERRAR IN SKPREC,IND#'s 13) 

CALL EXIT 


END @F AN INPUT STREAM 
1000 CONTINUE 
WRITING AN @ @N BUTPLUT STREAM F&R INPUT TB MEDPLET PREGRAM 


TF vEMT » SEISMICITY OR VELCANSES WRITE BNLY ON 8 » OTHERWISE 
WRITE TWO & 'Se 


€ 
Cc 
C 
C 
Cc 
c 
c 
C 
c 
Cc 


IF (wFMT"4)10024100821002 
IFC UFMT=7)1007410088 1067 
WRITE (WTAPE21001)18 

wRITE (wTAPEs 1001)18 
JFCTaJFCT+1 

IF (UF (GFCT) )994,994,1005 
JFMTSUF ( UFCT) 


WRITING JFMT NUMBER 6N BUTPUT FAR INPUT 78 MEDPLET PREGRAM 


WRITE (STAPEs 1001) SFMT 
FORMAT(11,20X) 

G@ TS 18 

END 
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INTRINSIC SUBPREGRAMS USED? 


Pe EAS SN it ORI Re aS 


FLOAT sectSk 


EXTERNAL SUBPRAGRAMS REGLIRED: 


DNAV x FIND GINeT Sw Nava PIN6r 
PR@W eT gKP SINOT SKPREC Bar UAPKBY YINGT 
F104 Fiic2 F34103 F3104 Fi405 F%408 M3D8 
Ms6C SECDREAD 9BCDWwRIT 9ENCECE Q9ENDI6L ,  9I8DATA 9IBLUSA 
QITOER gRTel 


HIGHEST ERRER SEVERITY! O (NA ERRGRS) 


DEC HEX 
wARDS WARDS 
GENERATEC CADE; 372 9o3cc (N@ MEMBRY PROETECTIBN) 
CONSTANTS? fi 00007 
LeECAL VARIABLES; 259 09103 
TEMPS; 0 o0c00 


TSTAL PREGRAM; 1238 004D6 
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Ye C PROGRAM SAINT2 
Be C VERSION OF 7 AUG 4978, T@ PROVIDE FOR MAGNETIC TAPE TAPE INPUT 
Be C AND @UTPUT BF GSUM RECORDS 
he C VERSJON OF 7 AUG 4974, TO JOENTIFY XSCAL 
Se ¢ VERSION O8F 4 FEB 1973, TE REALLY CMANGE GSUM BUTPUT Te DEC DEG 
4s C VERSION OF g SEPT 1972, TO CHANGE PCS DATA INPUT FORMAT 
7 C AND T@ ALLOW GSLy INPUT ON CEVICES OTHER THAN CA2D2 
Be ¢ VERSION OF 24 AUGUST 3972s TO INPUT AND SUTPUT GSUM IN Det DFC 
Se Cc wed MAY 20, i971 BY FOLINSBeE Te FyT UNDER Hs MONITAR(ARRAYS INJ3 CAOMMGN, 
1¢e C PROGRAM SAINT2Zs MODIFIED FROm SAINT BN 27 NOV 1970 BY Ce BEWIN 
ii. ¢ TRIS IS A PROGRAM WRITTEN T6 INTERPOLATE DATA AT EVEN INTERVALS 
12° DIMENSION A(10) 
; 13° CIMENSION NAME(S) sSCALE(S) sAMINV(5) sAMAXV (5) 01(5) 
ia Lae CAMMAN RLAT(1000),RLENG(1000),GRV(1000) sFAIR (1000) ,B88UG(1000), 
15 1 CEPTHK( 1000) ELEY (1000) s03ST( 1000) eFATP( 1000) #HINT( 1000) 
166 CIMENSIO@N KEY (60) 
17° CIMENSION JAR(40)s VAL (640) 2ARG( 40) 
186 CINENS ISN JA(10),0B(90) 
19° COUBLE PRECISION G 
20° CATA NAME/IGRV ','FAIR!, 'BOUG', 'CEPH', tELEVIs 
2ie CATA KEY/tUO08tst0001'stCCL te! te! Ye! O lobe! 12101A0! 
226 As 'O730'2'O8A '2456! "/ 
23° CATA EPS/O0S/ 
24e | a 
256 C SSh(4) * 4 TO SORT DATA 
266 C gssw(2) » 1 TA PUNCW SARTEC CATA 
276 C $Sw(3) © 4 TO PRINT SA@RTEC CATA 
286 C SSwi4) # 3 T8 INTERPOLATE VALVES 
296 C SSh(S) = 4 TO PUNCH INTERPALATED DaTA JN GSUM FMT 
30° C gsh(6é) » 3 70 PUNCH INTE nrebaree FREE ®AIR ANOMALY Daya IN TALPLOy FMy 
31° C SS4(7) » 4 FOR PRINTED INTERPOLATED DATA AND SUMMARY OF JOB 
| 32° C SShW{g) = 4 FOR PRINTING HEADING AND VabWES OF YNPUT DATA 
a 33° C gsh(9) = 1 76 PUNCH INTERPOL ATE® ELEVATION Data IN yabPLer FMy 
‘ Bue C $SW(10) #1 T@ READ GSUM DATA FROM MAGNETIC TAPE 
45° C SsW(ii) s 4 TO WRITE INTERPGLATED CATA IN GSUM FMY ON MAGNETIC TAPE 
36° Cc 
376 C HHRRHHHRHRHHHEHH HEHEHE 
386 C 
39° C LAST INPUT GSUM Dara CARD ShOULO RAVE A 9 IN COLUMN 1 
4Qe Cc 
41 Cc SHHHSHHHE HEHEHE HEED 
420 ¢ 
436 C SETUP INPUY AND 8UTPUT DEVICES 
aoe 1IN#105 
45 INsic5 
46s 116U78108 
47e L6UT#1¢8 
48. IPUNCH # 106 
49 wIAPEs2 
50° ITAPE w4 
Sie IFILE1s3 
52° IFILEes4 
53 IFILE3@5 
54s OCsd+d 
556 OUTPUT 'PROGRAM SAINT2, VERSION OF 7 AUG 19751 
86« CEGRAs1 7453296202 
57° RAQEGs57+29878 
58s INTT#ISW( 02) 


59° Cc ENTER BPTISNS FOR PRCESSIING 





a aa a 


ES RARER aaNet een sNRN eT MaeZ ey 2 SHURE RAREST ON SEAR DIRS PEE DUET AER AERO PLS RA SL AIEEE Pi 8 AS ALPE MERRIE EE 


on ee acne nae 


60°« 
6i* 
62° 
63+ 
64e 
65- 
660 
676 
68> 
63° 
70° 
71+ 
72 
73+ 
74e 
750 
766 
77» 
78-0 
796° 
8Ce 
81° 
826 
83° 
84. 
85> 
860 
876 
88- 
89-~ 
90° 
Sie 
92° 
93° 
She 
95-6 
966 
976 
98 
996 
100° 
102.6 
102° 
103° 
104%. 
105° 
106 
107° 
108+ 
109° 
110. 
lilies 
ae: 
113° 
114.6 
a. 
116° 
117° 
118+ 
119° 
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5 READ(IIN»®SOCsEND899) XKMeXSCAL,NPTS 
500 FORMAT(FSeisaF 523515) 


xk = KM CISTANCE BETWEEN INTERPOLATEC DATA POINTS 
XSCAL® MaX OISTANCE FOR heICH mepere ARE GIVEN UNITY WEIGHT} 
BEYONC THIS CROPS LIKE X/XSCALe 


NANAND 


IF(NPTSeEGeC) NPTS8& 
NOI Ms2eNPTS 
WRITE(1OUT#650) KEY 
650 FERMAT(TSQs' INPUT PARAMETERS! // 
A ' SORTING KEY LSEDS',3(20A47)) 
BUTPUT XKMsXSCALsNPTS 


INITIALIZING FUNCTION WY 


leWTSET(XSCAL) 
REACING PCS PARAMETERS AS INFUT TO SUBROUTINE PREV 

REAC(IIN, 200) JA, ANG, OMAXM, ILATSRILTM, ILONG,RILOM, VB 
20C  FORMAT(IOALs2F10¢O, P4eF 622, L4eFSe2,30A1) 

WRITE (TIOLT 2200) VAs ANGs CMAXMg TLATARILTM, LLONGs RILOM, JB 

RILT#OMTAR(ILATZRILYM) 

RILGSCMTER(TLENG,RILOM) 


ana Ann 


IF (TSW(8) eEGeq) WRITE (1OUTs604) 
604 FeRMaT('O',750,' INPUT Carval// 
Av RECBRC LATITUDE LONGITUDE «RAVITY FREE AIR peUGleR ODE 
BETH ELEVATION TCOR [ekbCr7) NUMBCR RADIANS RADIANS MG 
BaLS MGALS MGaLS MTS Mts!) 
C8 6 In69121000 
IsIN6 


IF (ISW(410)eEGeQ) GO TE S01 
READ (I TAPEsS520sEND810) 
4 IREC,CLAT »OL6NG sELEV(T)sGsDEPTH(T),FAIR(L),BQUG(I), TC, IELC 
520 FORMAT([1014X,2FS¢4,F 702, F902, FS¢O,eFbet Foot, [2) 
G6 T6 505 
501 st at A Neal 
1 REC, Chay ,DLENG _,elevi(s),G,DEPrW( 1), FatR( 1), B88UGi1),7C, te LC 
502 FORMA (114 t4xsaFSeasF Jee, Sask SeqsaFbejsFaegsl2/} 
505 NOSING04 
RLAT( I) sDLATwDEGRA 
RLONG(1) sCLONG*DEGR~A 
Covtiper eben 700y+ 
IF( IRECeEGe9) GA TO 4 
IF (1SW(8) eEQeq) WRITE (TOLT» 605) 
A TpRLAT( I) sRELONG(1),GeFAIR( I) ,BOUG(I),OEPTH(L),ELEV( I), TC, IELC 
605 FORMAT(§ taixe 15 s4yxapSebs2xsPIeGalxapSeBeexereepsdxspbets3xape 
Meee gare et oNaeRXs cE} 
CONTINUE 
10 CONTINUE 
IREC#4 
N\VAR#NG6 
BSL ATeRLAT(1) 
BSLONaRLBNG(1) 
TLFAMIW(RLATSNVAR) 
TEsAMAW(RLATSNVAR) 
TZeAMIW(RLONGSNVAR) 
TUsAMAW(RLONG,NVAR) 
C6 33 yeli,NVAR 
IF (CRLAT( 1) eb TeBSLAT) BSLAT@RLAT(J) ;GSLONeRLONG( 1) 
33 CONTINUE 
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A 270 2 
£ 
120° IF (TaeT1eGTeT4eT3) GO TA 34 . | 
121° D8 37 Tas st VaR 5 
122. IF(RLONG({) eb TeBSLON) ESLENPRLONG(]) sBSLATeRLAT (1?) 7; a 
123" 37 C8NTINLE ; 
1246 34 CONTINUE | w= 
125° CO 31 Isish8 4 
126, CaLL DISAZ(RLaT (1), REONG(T),RILT,RILG,1,A2,8,01S7TKM,C) vy 
127° IF (ANG) 44s44s42 : 
128° he =F (A201 95) 48248246 
1296 44 IF (AZe22%) 48248246 
130° 46 OISTkwseDISTkm 
131° 48 CONTINUE 
132° DIST(T)SDISTKM #109000°0 
133° 31 CONTINUE : 
134° Cc ISwéi)ei 6R GREATER SORTS Q STKERWISE 
435° IF (TSW(1) eEGeQ) G6 T8 3C¢ 
136+ C8 11 pel,NVAR 
1376 CEE bes 2 
138+ WRITE CIFILELs503 
139. 1 IREC, ALATCL). BFONG(L) ,ELEVE I) »G,DEPTH( 1), FAIR(1),BeUGtI), TC, IELC, 
4Ce 2 CIs!) 
WE 503 FORMAT (142 14Xs2F9e60F7eesF9e2eFSeceaF6eysFaegs leer Ben) 
442e 41 CANTINLE 
143° C SORTING PART 
144+ ENO FILE IFILEY 
145° REWIND IFILEY 
1466 OUTPLT * 41 eeSBRTING TAKING PLACEce! 
1476 CALL CLOFILCIFILE1) 
1486 € 
149° C IN TRORT ARGUMENT LIST 
i50° Cc 2N0 ARGe & IS UNIT NOe FOR INFUT 
151° C gRC ARG, & IS UNIT NO@e FOR BUTPUT 
152° ¢C 
153° CALL TRORT(KEYs 45s ICOCE) 
{54° BUTPLY 1CeACE 
155° CALL OPIN(IFILES) 
156° BUTFUT tewEND BF SORTeet 
157-6 C8 $3 18126 
158. READ(IFILESs503) 
159+ 1 IRE TREAT (1) sRCONG(1) eELEV( 1)» GeDEPTH( Ly ,FAIR( 1) sBOUG(I ys TCs TELC, 
160° 2a bIsTit) 
161+ GRV(1)#G"9770006 
162+ 13 CONTINUE 
463° ¢ CrOBSE T& PRINT AND PUNCe CATA 
164° C TSw(2)04 18 PUNCH DATA 
165+ IF (I1SW(2)*EGeQ) GO TE 3¢ 
166+ C6 14leisN8 
167-6 G®GRV(1)+9770006 
168° OLATaRLAT( 1) #RADEG 
169° Syenecenecutaice wee 
170. wR TE Af yushe See 
. i7i° 1 TREC, CL LONG ,ZELEV( 1), GsDEPTH(T),FAIR(1),BOUG(I1), TC, TELC 
. 172+ 14 CONTINUE 
/ 173° 30 CONTINUE 
174° ¢C IF (1SW(3)) 94 WANT PRINTED OUTPUT OF SORT 
1756 IF(JSW(3)*EGeO) Go 735 
176° WRITE ( 18UTs602) 
177+ 602 FORMAT('19/7 Tags tSORTED VALVESI/ 
178. A’ ReCord LATITUDE LONGITUDE GRAVITY AEE AIR BBUGUER DE 
179 BPTH ELEVATI@N DISTANCE KM'/! NUMBER TANS RADIANS MG 
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TRA SD SE YEN 
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1 er 


ye vere, 


180° 
181¢ 
182: 
183° 
184. 
185¢ 
4866 
1876¢ 
188-6 
189° 
190+ 
1916 
192¢ 
1936 
1946 
195-6 
196° 
1976 
198 
499° 
200° 
201° 
2026 
203° 
204 
205. 
206« 
207° 
208+ 
209° 
21C° 
2116 
212+ 
2136 
2146 
215° 
216, 
217° 
218+ 
2196 
2ece 
zB) 
223° 
er4e 
225. 
226° 
227.6 
228+ 
229s 
23C° 
231° 
232° 
e393 
234 
235° 
236° 
237° 
238° 
239° 
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BALS MGALS MGALS MTS MTS FROM #4!) 
C8 32 TelsN6 
G*GRV(1)*S977C00e 
ert AO a ie 
WRITE (TO6UT*603 
A IZRLATII)» RCGNG(1) eGo FAIR (1) ,BOUG(T) ,DEPTNCT) »ELEVIT), ADIST 
603 FORMAT(' "21X, 35 g4XpF 506g 2XgFI06y 1X, F902, 2X, F601, 4X, E01, 3Xe Fh 
AeQsSXeFGeQesXaF8e2) 
32 CONTINLE 
C OIF ISwm) EG, WILL Saya a 
35 IFC ISW(4)eEGeO) Ge TE 
€c CALCLLATING FEIGHT AND eikeine IY IN ELEY FIELD 
C6 45¢ I#1sN6 
IDEFSCEPTR(I) 
IF (IDEP) 44404420444 
442 REIGTSELEV(I) 
ELEV(I) shEIGT 
G@ T8 450 
444 KEIGT #®eDEFTH(I) 
ELEV(1) sREIGT 
45c CONTINLE 
IFCISW(7) eEGe4) WRITE TOUTs610) 
610 Ceeee Tok ENTERPORRTED VALVES'/ 


At RECBRC', GRAVITY FREE AIR B8UGUER ODE 
BPTR ELEVATIA6N DISTANCE KM '/ 

Ss ' NUMBER, t MG 
BALS MGALS MGALS MTS MTS FROM #3 NORD 


* LATITUCE LONGITUDE? 
C CETERMINING NEAREST FIELD POINT Te FIRST MEMBER BF DATA ARRAY 

IZERBs(DIST(1)=10000%)/XxKM 

X81c0C0+ *IZERB#XKM 

1SW(5)s4 CUTPLT IN GSUM FUNCH 
1SW(6)#_ BUTPUT IN TALPLT PUNCH 
1Sh(7)#1 PRINTED BUTPLT, INTERPOLATED 

NUMIT #0 

06 36 1*1%1C00 

IF (X.GTeCIST(NG) GA 7B 436 
614 CBNTINLE 

CALL PLCK(X,O;ST,NO@,NPTSs IN, 12) 
¢ FAR LSE IN ATSM AND PICK TkE SERTEC ARRAY DIST myST BE STORED 

IN @ROER FROM Tee SMALLEST i LARGEST (lee OIST(1) 
c MUST Be < 6R = CIST(I4q4) 
1F (aBs(Orsrl Ne1)<0167 (1K) ) LENO soot) RRLAN®RLENG( IN) 2 
RCATeRLAT( Ny; G@ T 
RRLONS(RLONG(IN J*{DIST(INe4 4K) 4#RLONGI TNAL)#0%6DIS7C1N) 9) 
4 mab bat tates reper ti 
a( 


Ana 


RRLAT LAY (IN as aT (tNeq ex) aRLAT (INed) #(xeDIST (IN) )) 
1 /CDISTCING1L eDISTCIN)) 
644 INs105 
NO@RaNDIM 


CALL ATSM(X,DIST(IZ) sNORZ ARG, TAL,NOIM) 
THIS SeCyION IS CALCULATING he SUM OF fhe relaues OF tke 3 BR 4 
Clase St VARIABLES ANO Tre SUM BF ALL THE WEIGHTS 


ann 


SZEWT (ARG (4) eX) FWT (ARG (2) eX) WTI ARG (3) 0X) 
S4aS3enT(ARG(4) ©x) 
S4Es0 
CDE 664 JKsS,NDIb 
SHE*SyE*WT(ARG( IK) oX) 
664 CONTIALE 








een eT ee ee 
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SZEsSHE owl (ARG(4)&X) 
C We START BLT WITH NORD (ORCER BF POLYGON) #3 » THEN IF THE Fellankyy* 
C C@ACITIGNS ARE N@T MET WE RECUCE TRE @RDER 6F THE POLYGEN 
(- TRESE C@NDITI@NS ARE BNLY ESTIMATESs AND SHOBULD PROBABLY 35 
C ChANGED AS FURTHER EXPERIENCE IS GAINEC WITh YHE P PRAGRAM 
NORE 93 
IF (S4eGTe4e#S4E) NORD#Z 
IF (S3eGTe4#S3E) NOROa1 
IF ((S4eS4E)eLEe4) NOROSe 
IF ((S4#S4E)eLEee2e) NORD aL 
CALL SETAL(GRYV(I1Z) sTALsvAL,NOIM) 
CALL Bot henner meaner soanannee® 
GGeAll 
CALL SETALIFAIR (TZ) a TALsyALsNOIM) 
CALL EGN(XsARG,VALZNDIM,NGRDZA) 
FFeA(1) 
CALL SETAL(BOUG (1Z)sTALsVALsNOIM) 
CALL EGN(Xs,ARG,VALsNOIM,NORDZA) 
BBeA(1) : 
CALL SETAL(ELEV (12) sJALaVALgNOIM) 
CALL EGN(X,ARG, VAL,NOIM,NOROYA) 
EEsA(1) 
FATP( 1) eFF 
C CONVERTING ELEVATION TA KMS FOR BUYPUT AT TALPLOT ELEV INPUT 
hINT(T) SEE#0.001 
G#GG+977000° 
IF(ISW(S)eEGe o) GB TO 705 
BLTPLT INTERPOLATEC VALVES AT GSUY FMT 6N The CARDS 
CONVERTING TO CECIMAL CEGREES 
CRLATSRRLAT*#RADEG 
ORLONaRRLEN#RADEG 
IF(ISW(11)eEGeQ)GO TO 695 
WRITE (TAPE s696)ORLAT,ORLON, EE sS,00,FF,66 
696 FORMAT( "12g hxsaFGobsF 7eopF9e2eF SCs 2Fb6e4) 
G8 Té 15 ; 
699 WRITE ¢ IPUNCHs 700) ORLAT,CRLONsEEsGeCOsFFsBB 
700 FORMAT( tL ta 4Xs2FIebeF 7eQeFSegeFSeqsaréey / 
1 15X,'INTERPELATED GSUM FROM SAINTe!) 
705 x08x1000 ooge 
44 IF ¢3SW(7) eEGeq) WRITE(TOLT2644) baGeFFsBB.00,EE,X0,NERD,RRLAT,RRLA 


#h 
61414 FORMAT(# ta1xe 5 s5xe FICLIAKe FOO Le 4X F6E Ls 3KIF 6 
VeQsSXsFG0Cs4XeFBe2e7Xs 1302F 1096) 
XeX% XKM 
NUMITSAUMIT 44 
36 CONTINVE 
436 CONTINUE 
IFtisitels ret WRITE(IPLNCH) 615) (FATPC I), TegsNUMIT) 
615 FeRMaAT(SF1i0e1 
IF 1h(9) e€Gen) WRITE (T PUNCH 620) (MINT(L) aT edeNUMIT) 
620 FORMAT(S5F1i0e3) 
50 CONTINUE 
156 CONTINUE 
G6 T6 § 
$93 CONTINUE 
STeP 
ENC 
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PROGRAM SELSP 
VERSION BF 44 AUG 75 (ORIGINAL) 
BUTPLY 'PROAGRAM SELSP « VERSION @F 11 AUG 75! 
FOR SELECTING SPFMT BUTPLY BF CRWT3 (DERIVED FROM PROGRAM SBRT3) 
PREGRAM SBRT3e FOR SORTING BUTPUT BF CRWTe 
CIMENSION IDESC(6),VEL(a),THICK(g) 
INITIALIZATION 
TIN = 405 
II6LT » 108 
ITAPE 51) VTAPEse2 “ 
NREC s 0 
JOREC#C 
C 
(2 SENSE SWITCR CARD IS REGUIRED BY. PINOT 
C 
INIT ® [ShW(ep) 
KKsQ 
CALL PINOT (LTAPE,WTAPE,KK, JSTA, KEY, LAT» LATMs KNS, LONG, LOM, 
1KEW, VEL, TRICK, IMANT,NELEVaNigNCoNSsN4,METZIYR, IDESC,DINE, 
2STHIK»CRVNaWGTNe AVWTINeCRYWaWGTWsAVWTh) 
ISTAB80 
K9 8 1h9 
ANS s 4S 
NEW =» {HW 
G 
Cc 
REAC(IIN»2) yMET,IMETs PROV, IPROV, TAR, IMOP,SMIND, SMA XD 
zc FemPAar (areca! 5010! 
C OP s INDICATOR, 8R seRy ON maTeR bee Th eR ELEVATION 
C DMIN » MINIMUM WATER DEPTH 6R ELEVATIO 
C DMAX = MAXIMUM WATER DEPTH, OR SLOVATION 
REAO( TIN, 2) 10P, an DMAXx 
3 FORMAT (15e2F10 


GUTPUT (METS INET UPROV, [PRAV, LAR, IMDP, SMND, SMAXD, IDP, DMIN, DMAX 
T(TARsGT*Q) CALL ARLIM (LIN, TISUT,RTOP,RBOTARLEFT,RRIGT) 


g ReaCING U BF TARANTS WERLO sEersMyC REFRACTION COMPILATION 


Cc 
10 CONTINGE 
KKs 
CALL PINOT (YTAPE,HTAPE, KK, ISTA, KEY, LAT, LATM,KNS, LENG, LEM, 
1KEWs VELs THICK, IMANTy NELEVaNq2 N22 N3sNGQ ME Ts IVR DESC, DINE, 
2STHIK,CRYN,WGTN, AVWYN,CRVW,WGTW,AVWTW) 
NRECsNREC41 
¢ ENDwOFeF ILE OR ENDeOF e TAPE ENCEUNTERED DURING READ 
IF (KKeEGe9 ) GB TE 999 
C CRKECKING JF KEY # 9 
18 IF (KEY*K9)20910220 
2c. CONTINVE 
C CrECKING ¢6R SBRT CHECKS 
ISTAGSISTA 
IF (wMET) 300,310,300 
30¢ «IFCIMETeMET) 104310010 
31c ‘IF (vPRE6V)315+3204315 
315 NPREVeKN1#1000 + N2#i00 + N3#10 * N4 
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IF (IPROVeNPROBV) 102320210 
IF (IMOP) 32543302325 
IF (CINE*®SMIND) 1023272327 
IF (SMAXD@CINE )102330233¢ 
IF (YAR) 338s360.335 
RLATMsLATM 
RL@MeLaM 
RLATSCMTBR(LAT,RLATM) 
RLENGsOMTOR(LONGsRLOM) 
IF (KNSeNNS 135403527354 

382 RLATeeRLAT 

354 JF (KEWeNEW) 358, 9562358 

356 RLANG#eRLOAG 

358 CALL ARCK(RLAT,RLONGsRTOF,RBOTSRLEF TsRRIGTsIND) 
IF (IND)102360010 

36C IF(IDP) 364,370,362 

C SEA SEISMIC PROFILE 

362 IF (NqeEGeo) ELEV*®NELEVs GO TO 366 

Ge T6 10 
C LAND SEISMIC PROFILE 

364 IF (Ny e€Ge 2) GO TA 19 
ELEVSNELEV 

366) IF(ELEVeOMIN) 1023685368 

368 IF(CMAX*ELEV)909s370037¢ 

37C CANTINVE 


C 
C BLTPLT RESULTS 
KKaoo 
CALL PINOT CITAPESNTAPE,KKy ISTAsKEYSLAT,LATMs KNS»LONG,LOM, 
1KEWs VEL» THICK, IMANTsNELEVaNI a NeaN3eNSeMETe TYRa IDESCaDINED 
OSTRIKsCRVNa WGTNs AVWTNe CRVAg WGTWeAVWTW) 
TSREC#TEREC +) 
G8 Te 10 
999 CONTINLE 
WRITE CTI6UT2600) NRECs JAREC 
60C FORMAT ('NUMBER OF RECBROS INPUT®' 4 T40> 
4 'NUMBER @F RECBROS BUTFLT®', 140) 
IF (18w(26))40735040 
35 EXOD FILE JTAPE 
4¢ CALL EXIT 
END 
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SACCWRIT SEACFILE SENDIOL SINITIAL S9I@DATA STYOR PRINT 9STOP 


hIGKEST ERROR SEVERITY; © (N@ ERRORS) 


Cec REX 

wOROS h6ROS 
GENERATED CODE: 370 0ci72 
CONSTANTS$ 5 Cocos 
LOCAL VARIABLES: 80 00050 
TEMPS; é cotce 


TaTaAL FREGRAM: 457 ccicgs 


cea whl Di aerate Ne. as FiBL re net . : 4 





Ley ARMIN 


NRE AEE EPIC RARER AR Pe nat amt ee oH — : 


CEmleO Bo Mit 73 


Le ¢ PR@aGRAM SPFMT 
Pe 
3. VERSION OF 24, AUGUST 1974, TO READ NEW CARD SEY RECHD YULY 74 
he DIMENSION [DESC( 6) sVEL( 8) s THICK(8)4X(8) 
5. OIMENSY@N YDESC(6) 
6e & 
ye ROGRAM SpFMy7, CB8NyeRTS SMIC REFRACTIEN COLUMN FARMayT 
ee eee TE UT aR SOMBNTS WOALC ScTSMEC REFRACTION COMPLI Lay ION 
Se 
106 : FARMAT TO SPFMT FORMAT 
ite C ¢aCH PROFILE IN ONE 129 CHARACTER RECARO 
12. F é : 
13. & USES SUBRBUTINES Sw, STAT, EVIL 
1L4e Cc 
15-6 C 
166 f HOSE EHE HEE RO HERE EEHESHO EERE HEE EOTE OHHH EE HEHEHE OE ET 
7° TTAPe 9 URN FOR Seistie DaTa INPUT 
: fa: C JTAPe 9 URN FAR SPFMT DATA @BUTPUYT 
. 196 ITAPE 9 1 
| 209 UTAPE @ 2 
i ele Cc PRR PUSS SIOC EL SCCOCOCES TESCO eS 
i ay € 
| 236 C 
H 24e C 
i 256 € SHEHHHE HE HRE HOH HEY NOTE C8 EH HHH SHEED EHH 
26- C 
a7 6 C IN ORDER TE OUTPUT THE LAST DATA CARD, A BLANK CARD MUST 
28, : FOLLOW THE DATA CARDS. 
4 236 
| 306 Cc POOH O SHARES H HSH OEE RHR EE HERE SEEHEE HEHEHE EEE HEE EOD 
4. 31. E : 
} 32> IIN « 105. 
336 II8SUT = 108 
34s CALL STAT 
q 356 INN 9 ISW( #2) : 
: 36s WRITE (1I8UTs605) 
j 37° 605 FORMAT ( + 1 PROGRAM SPFrT! //) 
: 38. QuTPUT + VERSION 8F 24 AUGUST 1971! 
4 39+ ISTABaO 
4 4Oe RNDaGe5 
; 41 NREC30 
426 IFSTaC 
43. & 
44s G LG @e § 
45. GC L6 9 OG 
466 ‘ L3s3 
47 C Le 8 4 
48s C KNUM » #@ 
49 C 
50+ L9 = 19 
5i. LO = 10 


52. L3 9 im3 
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5 
53+ L4 = Ley 
Bae KNUM = 1h# 
556 L2siHa 
S6e L6e1N6 
57. L8a1k8 
5a. LKeilkk 
59-0 LMe1HM 
60« LPeiltiP 
6le LRailkR 
62¢ LTsikT 
63 LVsihV 
b4e LXe 1x 
. 655 LZe1wZ 
S| 660 ,Gein 
i 67 TRECi ei | 5 
Pt 68 DINE 8 00 
| 690 STHIK 80 06 
| 700 CRVN = 099 
. | Tle WGTN # 000 
1 72-6 AVWTN #000 
4 73° CRVW & QO9Q 
p | 74e WGTW = 000 
| 73.6 AVWTW = 060 
. | 760 (s 
i 776 Cc : 
' 78.6 KDAe O 
bj 790 KM6# 0 
4 80° KYR® 0 
| Ble C READING U BF T8R8yTE WERLD SEISMIC REFRACTION COMPILATION 
82° 999 CB8NTINLE . 
83> READ ( I TAPE, 12) JISTAgUKEV se JLAT gp ULATMa wKNSy WONG s JL OM, 
84s i UKEWaVa Tye Vae Tos V3 T3e Vee THe VMAT YAEL EVs 
| 85. 2 UN] se sNgaIN3s NOs IMETs JIYRs JDESC 
| 866 2 rORMATT I aAqal os ToeAlolaslevdta4(Feelaraeiie 
i 87-6 1 F2e{a1XoF4o2e4lisliol2s6A2) 
88s CALL STAT(T) 
| 89» CALL EVIL(IIOUT,1,1BADs, KDA, KMB,KYR,  ISTA) 
a 306 IF (IBAD) 999213» 995 
a 91° 13. CONTINUE 
92¢ C w 
93. C CkECKING FAR KEY Cade FAR SECAND CaRD 
94. Cc 
556 oe eR ACL et aE 
S| 96s B01 IF (JKEY*l6)502550250 
| 97. 502 Ir (ukKEYeL 8) 50325502503 
98> 503 IF WKEYeLK) 5945502504 
996 504 fF (YKEYeLM)505295504505 
100. 505 IF (JKEVelLP)S06s550s 506 
101+ 506 IF (QJKEYeLR) 50725502307 
102° 507 IF (wKEYeLT) 50825502308 
103+ 508 IF (yWKEYeL7)5092550s509 
104, 50g IP t(¥KEYeLV)5102550,510 


105. Sio Ir(yKEYe.X)5112550,511 











281 
106+ Sit fF ( UKEYeL72)5120550512 
107+ Si2 IF ( YKEY#LQ) 513255025193 
108+ 513 ge Te 3ot 
109° 55¢ TF (UTSTAs1STAB) 44625850444 
110. 444 ISTAG@s0 
Lile ae Te 999 
1120 555 C@NTINUE 
1136 c 3 
Lide CeNveR?T ReaD vALUES TO THOSE FAR LAYERS 5 w 8 
1156 ce 
1166 VEL(5) # Vi 
117. VEL(6) = ve 
113-6 VEL(7) =» v3 
; 1196 VEL(&) =» V4 | 
' 1206 THICK(S) = Ty 
121. THICK(6) = T2 
1226 THICK(7) & 13 
i 123+ THICK(&) = T4 
; 124.6 Cc TAKING INFQ@ FROM SECQND CaRD FaR @UTPUT 
125 KEY = KEY 
: 1266 LATS JULAT 
i 127. LATMeJLATM 
f 128+ KNS#UKNS 
' 1296 LONGs LONG 
1306 LeMaJLQM 
; 131. KEWaJKEWw 
' 132+ VMANTsVMATY Pye?! 
' 133. IMANT @ VMANT#1000 
i 134. ELEVeELEVG 
; 135-6 NELEV » ELEV # 10000 #(SIGN(RNOSELEV)) 
: 1366 NieuNd 
§ 1376 N2e8JN2 
é 138 N3aQN3 
; 1395- N4eUN4Y 
S 1406 METa JMET 
‘ 141. TYRaJIYR 
i 142¢ ce 565 } C396. | 
; 143, _ IDESC( LT) auDESC¢!) 
: be 56 ONT 
i tt G vias deverna INOrCaT@R FAR PROCESS CONTROL AFrER BUYPUy 
i 1466 IND#2 
147.6 so IFSTsO 
i 148. 660 CBNTING 
; 1496 8§ yi s NUE #10¢0 + 095 
f 150¢ w2 5 VEL(2) #1000 + 085 
151. J3 9 VEL(3) #1000 + 0,5 
152+ we * VEL (4) #1000 ¢ 005 
153. a = VEL(5) #1000 + Oe5 
154-6 J& » VEL (4) #1000 + Oe5 
155. J7 8 VEL(7) #1000 + 05 
156+ J8 * VEL(8) #1090 + O85 
157-6 Ki = TmICK(1) #1090 + Oe5 
158-> Ko 8 TwICK(a) #14000 + O05 





ae alenite eee en ee wis perez 5 ani, a Presser i ° 4 . " facut " ia 
q ee CaS E UNA NALRENAR NL _ASN NE  OERU ONANE MOREE DEPOT I SO TG OTS PNG SEE IITA ILE SE PINT 4 TEE § 
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159° K3 © TWICK(3) #1000 + Oe5 
1606 KH 9 THICK(4) #1000 4 O05 
1616 KS 9 TwICK(5) #1000 + Oe5 
162. K6 8 TmICK(6) #1000 + 095 | 
163.6 K7 8 Lela eG 0 ¢ O05 
1646 K8 =o TwrcK(8 O00 + 0#5 
165-6 WRITE (GTAPE, 999) IREC] » ISTASKEY, LAT gL ATMs KNSsLENGo LOM, 
166, 1 KE Wp dp KL a S29 K2 0 S90 K Sy 40 4 JS KS yoskSei7AK7 4 dB sKBe 
1676 2 IMANTs NELEVs Ny pNaaN3aNeame la LYRa TRESCs DINED STHIKaC VN 
168. 3 WGTNa AYWTNe CRYVWsWGTW, AVWT Ws 
169+ 9390 FORMAT( Tq slusAgelaelasAgalgeloeAge Bi lasla)sloeteealye 
170« 1 1121 226A2s phot sF seis 2p6eQr 1 Xe des ar6eQs 5x) 
1710 NRECeNRECS1 
172. C SETTING veLSCiry AND THICKNESS ARRAYS = ZeRO 
1736 D8 602 } 2148 
174» VEL(T) = 080 
175¢ _. THICK(L) # 0°0 
1766 602 C@NTINUE 
177. . Gd Ta (3300610) IND 
178, 61c IrSTAe@s 
179° _. 96 Te ais 
180+ 301 IF (sKEY@L9)31023054310 
181¢ 305 !1F(Vi9q901)9991999s310 
1a2, 31c JF(IFST)312, 320,312 
133+ 312 INDei J 
184.6 G8 T8 600 
485-6 326 IFSTsi. 
186% 330 CONTINUE 
1876 C 7 
188+ C C@NvERT READ vALUES TO 8 THOSE FOR LAYERS 1 © 4 a 
4896 C a 
490° ISTAg SISTA 
191° KEYaJKEY 
1926 LATSJLAT 
193. LATMeuLATM 
194» KNS#®JKNS 
195-6 LONGeJL@NG 
4966 LOMsJLOM 
4976 KEwsJKEW 
1986 VMANTSVMATY 
199.4 IMANT e hide 
2006 ELEVeELEV 
2046 NEGEV 9 ELEY » 10000 #(SIGN(RNC»ELEY)) 
2026 NiewNi 
203+ N2aWN2 
204% N3eUN3 
2056 N4auNe | 
2066 METeJMET 
207 6 IYReJIYR 
208¢ De 340 f = leg 
209 IDESc (1) euDescr i) 
2106 349 6CONTINLE 


241. 22 VEL(i) » Vi 
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sys. 


td i 


PRO ar aaa Ned ey SSR 


VEL(2) « v2 
VEL(3) = V3 
VEL(4)_@ V4 _ 
THICK(1) = Ti 
THICK(2) © T2 
THICK(3) © T3 
THICK(4) = T4 
_ YSTAGaISTA . 
C READ NEW INPUT CARD 
Ge Te 999. 
995 END FILE yTAPE 
WRITE ( TI8UTs996)NREC 
996 FORMAT(+:EQF FQUND, NREC s ty Ja) 
CALL EXIT 
END 
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COMPILED RY Abn i 27S 


1. PRUGTA’ TALPLET 16 
BY SUTPUT | TALPLST 16 RUN, VERSIBN BF a APRIL 751 


fe) 


inecinethn eT 





3. ¢ VERSTON & APRIL 75 T&S ZERB_ VARIABLES 
4e C VERSTON SF 25 MAY 1973. CHANGING TALPLAT 15 TS 46 AND 
5. Cc CARRECTING ERRS”? IN 2D BEUGUER ANOMALY (837D) CaLCULATIAN 
6, Cc BGyD ValUcs WERe ONLY CARRECT IN Past WHEN 2DeNS EQUaLL SD 
7e c THE VALUE 2e675 —- 
Bs C VERSION BF N8V45 TS CORRECT BUPUT BN JTAPE BF New FIELD PAINTS 
3 9. C -S6_THAT PL3TTING PRUGRAM TERMINATES CARRECTLY 
| 106 C MED 8CT 44 TA CBRRECT WEIGT BUG AND TA REMOVE PUNCHING 8F 
vik c MBDIFIED PAINTS, TIMER FEATURE ADDED 
126 c VERSTON BF SEPT 28 C&RRECTED wT CALCULATION FoR ELEVATIAN 
iB. C. AND JMPLE“ENTED FILTERING BF RESIDUALS 
14. C MODIFInD SEPT 440197, BY FOLINSBEE 
156 C AND ye FILTER The RESIDVAL BETWEEN S8BSERVED AND THEAR=TICAL GRAVITY 
Lhe € Mab BE JUNE gy 1971 CeMENST GN PBLYGAN CARDS, C8RRECT WY CALC. 
“om C  MPDIFIeD JUNE 2 74 TO USE ELEVATIONS IN. CRustal Wr CaLCULATION 
{8 C  VEPSISN 8F 5 A rit 19712 “RITES COMPLETE BAUGUER SN JTAPE 
196 C LAST CHANSE FEB_3 72 ta BE aDING SF ELEVATIONS - 
2O- c C LAST CHANGE JAN 19 71 TS REMByE 8GGA BUG 
21. C LAST CHANDE(REMOVE 9GA SET TO BUG) ‘ON JAN 44274 AFSLINSBEE 
ee, C taLPLayt 15 FROM TALPLeT 14 8N 3¢t 23,1970 BY AFO@LINS3¢&e ralloonoo 
23. c TRIS 15 4 PRAGRAm TS Sf BATH LAND AND SEA DATA TAUOQOD19 
Phe CC ELEVATTaN MUST FSLLEW 654 DAT , BEGINNING WITH A NEW CARD IN FSRMAT TAUQQD4D 
256 C 5F 1002 2 = ae TAUN0N5O 
266 c FA USE 8N SIGMA 7» 7 TRACK MAGNETIC TAPE TAYy00960 
276 Cc QUTPUT REPREDUCES INPUT AND ALS@ RESULTS TAU00D79 
28. Cc TAYN0980 
29. C ASSIGN g TRACK MAG TAPE T@ UNIT NUMBER 2 a TAUNODSO 
30+ C LAST S80¥ PAINT IN EACH PSLYGBN MUST HAVE A 9 IN CBL 24 TAUNOL90 
34.0 C WEIGH EXPECTS THE DIMENSI3N 8F X,Z2, T9 BO BE 2 aGTe THe #BF POLY TAUOOLIC 
32. c PoLIts 7AV00129 
33. (o ’ BIO IIOESAER tn, te eat Bee ve TAUD0130 
346 c LN@a1 SHSULD BE FER wATER LAYER ONLY TAUDOL4O 
356 Cc IF LNSsiy THE: 2D SeUGJER ANeMALY IS CALULATED« TAUNN150 
a6 Cc ReFeReENCe DENSITY AND WEIGHT INPUTS REQUIRE. TAUQNDLS59 
375 C so THE ‘ge IGH7 IS CaCULATED FOR THE INPUT PBLYGANS, Z AND NOT TAUQQI7O 
ae C FoR THe MADIFIED PSLYGINS TAUQDLRO 
29. € : ; é “ a ae sd TAUOO190 
40° (= TSw (1) 89 wRITE JTAPE TAUQ0?2F90 
+1, Cc mi N@ WRITE JTAPE oT A ea Ors ae ie TAU00210 
42-0 C TA1)00220 
436 c ISu(2)eg SETS ELEV SSG Se eee ees = TAUO0230 
44, G a4 ReaDS IN ELEV IN KM 
a5 é a2 READS IN ELEv IN METERS 
ube € TAY00250 
476 Cc 1S*(3)89- PRANTS INTERMEDIATE DATA FAR EACH PLAYGON T4U99240 
43e Cc =) N@ PRITSUT BF INTERMED DATA TA QQ270 
+9e (4 . sao ae a : TAUQO2 RO 
506 Cc IS, ¢4)#0 PLOT INTERMEDIATE DATA TA1}00230 
51. Cc cx ae N3 PLAT = TAUO0390 
52. fs TAUDO310 
53. C 1S.¢3)a0-. NO pLAT Of ELEVATION TAY00320 
54. c ® PLST ELEVATISN TAU00330 
55. C 1S#(4) *4 TO ADJUST LAST CURVE TO FIT GRAVITY DATA TAUQD34O 
56, G Ss"(7) UP FAR BUTPUT DURING DeBUGyNG BNLY 
57. Cc T4U00370 
586 C TSii¢q) ay TA NOT WRITE INTERMEDIATE DATA FBR ZACH PALYGIN SNT9 TAUQQR&O 
%9« ia 


ee TAUOO0390 
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{ 
BOe € 
ole C S§Sw(y]) Ue TA NBT USES ELFVATISN VALUES IN THE CALCJLATIBN 
£2 c BF THESRETICAL GRAVITY 
j 62. C IF SSw(44) IS UP THEN THE GRaVITY VALUES READ IN SHEBJLD 
64, Cc BE COMPLETE BRUGUER ANOMALIES 
65. Cc TALTE af MEANS THAT THIS PEINT ylah BE VARRIED 18 C3mPYUTE A BEST FITTAUIOO4OO 
| bo. Cc SS4(y2) UP TE USE ELEVATION VALUES IN CRUSTAL Wr CALCULATION 
i 676 C THIS SHBULD BE USED wHEN THE GRAvITy ANOMALIES ARE BOUGUER ANSMALIES 
i 5B. ¢ AND THUS THE TOP SF THE M3DEL IS AT SEA LEVEL. A DENSITY SF 3067 
| 696 c 13 USsD IN AKING THe wr CBRRECTIAN 
| 706 Cc S$$%(43) 24 TR BUTPUT RESULTS OF INPUT P8LYGENS BEF SRE 
Pi (s ALTERING THe VaR ABLE BSUNDARY PINTS 
726 Ec The pOLyG@N THAT IS TS BE VARRIED MUST ge THE LAST pSLyg@N 18 3& TSU QQ410 
| 72. € The FOINT TA BE VARRIED MUST NST SE THE FIRST SR LAST PAINT IN THE TAU QQ420 
i Tae € PBLYGBN TAUNO4 30 
7S = IMaX IS THe MAXIMUM NUMBER BF MODELS THAT WILL Be CZLCULATED TAVNO44O 

3 The c IMO@p IS THE NyMBERR BF MOQELS THAT HAVE BEEN CALCULATED TAIJO0&50 

| 77. e : TAUON04S0 

| TRe LOGICAL PARZeFALSEe/ TAUDD47O 

3 j 79.6 C@"MEN FER(200)s4FER( 210210) 

3 i 5Oe QIMENSISN LABEL (20) TAIIO04SO 

| Ble DIVENSION COME(5) : 

e | BQ MIMENSTON FX(200)0°2(290) . TAU00439 
<3 DrrEng78N PDELZ(200)4SSELZ(200)2xX0(1)2%(200)220(1)*#2(200)» rail00500 
ae 1 85A(290)28ESA( 290) a TEST(200)2 DS (200) TAUIOSIO 

456 STMENSTON ARRAY (29925)2SUM (200) 20ST (299) 27C8N (200) #SUMN (299) = TAUIQA5 29 
Abe DI TENSTON RFDEL (29) #XS(29) TAUQ9529 
a7. CIMENSrOn rAlLTE(150),AA(20,21),KK(5),0(5) ,20ELZ(20) TalNO540 
38s DIMENSISN 9GGA(290) 
96 DIMENSION STSUM( 200) j 
Fe bE SULVALENCE (ARRAY (464) aFX(1)) 2 (ARRAY (192) 2SSELZ(1) 0 TALIN9559 
| Sle 1 (A?RAy(123)2RESA(1))2 (ARRAY (124) 28GGA(1)) 
IP. 100 FER'AT(SF5e1) TaU0N0570 
33+ CALL TIC 
Ghe 8 1 K#12290 
: oS. 1 FER(K) £08 z 
966 IL78P 2D : TAUODOS RO 
37. SREFCaD TAUONON5S°O 
9% TREST a!) 
29. IFIRST2Q : r reo 
190+ RSusie£70 TAYONS90 
lols IMP Oso TAUOOS10 
10e. PEL sei& TAUQQ62D 
103. Dé)aeDEL _ : a5 TAUO0630 
1946 3¢4)eDEL TAYO0S40 
1u5- KK(1) ast TAUD0S50 
106-6 KK (3)01 TAUN0S69 
1076 KK(S) eet TAU00$70 
=| 138. MCH=sQ 

| 169-6 Ol1)aced 
110. 0(3) 8005 
111. C(S)a00d x 
112- KK(2)#9 

1136 KK (4580 

114-6 Of 101 Is12200 
115-6 FESA(T) #020 
116. FxX(T) #000 

117-6 FZ(1)#0*0 

118. PUELZ(1) 8009 


119+ 


SSELZ(1) #000 
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a 
| 
LPoe. al] dere) $ 
| tel. Lt D)eret | 
1226 SUM CT) aed ; 
} {23-6 C-GT(1)80*0 
124-5 FCI <(T)ade0 
i2Se SUMA( T2009 
126. _ STSUMC TI 80g 
127. 191 CONTYPNUF, 
128. tC? to? Tets2d 
12e%.6 : 25(1) 200 
139-6 KFOEL (DT) ae 
131. 192 CANTINUE cs 
132. TT ve1Q5 TAIINOSBO 
1336 IPUNeivo TAUIDQSIO 
| Lae T1dlT#418 TAUND790 
135. aed Ta'00710 
1366 uTAaree2 3 TALIN0720 
Li7-6 KF aNsl TA'SOQO739 
| {ake € NOTE THaT THE LAST PALYan"! MUST HAVE NUMBER 99 TANOOT4&D 
} Lad. \s39 TaU00750 
| 14C- be FUR IAT( AF 1002) TAUQO750 
a 141° wae FORMATCOF 4 Qe2e2l1) = TAUEQ779 
i is2. 44 FERIpT(TS,4F 10.2) TatLi0O7ad 
143-6 4S PER IATCZZOM LNG sald 10" RHP wpF10030 2X2 5A4) 
i 1s4- 47 FORM AT( /35H “ Fach) FZ¢K) AN®MALY) TAUCOESO 
i 145° 54. FPRhar¢/ * K FX(kK) _F2(K) ANEMALY CAL REF RESTIMIALTAUQOR in 
| { 1466 £11 6-s aseMaty WE PGHT WGT DyFF WE GHyESrtsSXe'FyLr') 
4 147° C RPE S s2EFESENCE DENSITY FER GRAVITY CALCULATIONS TAUQQR 39 
H l¥e. C &wGT = ReFeRENCe WEIGHT FOR Mass CALCULATIONS TAUNO R49 
; | L49e ‘S WH De OT RFERENCE DENSITY FER mepeL ADYUSTING #RHA LOWER ) @RHB( YPSERTAIIONR50 
| 1506 SEAD( TIN® 446) (LABEL (KU) sKU gts 20) TAUDDS 459 
Loe 44o FOEMAT(20A4) TAYODS70 
3 ise. “RITECTIGUT, 447) (LABEL (KU), KUeL,29) TAUONS3O 
; 1536 447 FUNMAT (1x2 20A4) TALOOZ3O 
} 154-6 Te!Si (2) TA!LION210 
: 155% LEC 1SW61) e6GO0O) SRITECMTAPE, 446) (LABEL (KU) ,KU#1.20) TAUO0390 
156° C% Be «<ale%o TAUDNI7O 
| 157-6 56 TALTE («) wISW(K) TAUONS 39 
| 1o8- TF CTSwqde eG.) WRITE(UTAPE, 449) (TALTE(K) sKaq985) TA'Ing 244 
‘ 159. 41g FRamMaTC@ClL) TAUONI5O 
1506 PEAD ( TIN» 427) RDENSSR,. eae tian DELEXs me NFER, I MAX TAYNDF6D 
; Lole 427 FORMAT (OF 1092s liosels 
j 1426 HUTPUT ROENS,R nateaked, REFx,FXI,OELFX,™, NFER, IMAX TAUQQ920 
; 163+ IZERKa 
j Lode TF (1SW( 1) ek Gegy NRITE (STAPE 2427) ROENSs RWGT» RHOD,REFX,FXI,DELEY, MTAaUQgesy 
i 155-6 *,TZ0RA,1MAX 
4 1666 IF (NPE 2eL Tel) GO TA 59K3 
/ 167. BUTPLT 'wEER(K) ! 
j 148. O8 556) Ke eNFER 
H 1996 IFER(K) a (NFER@Kep ed s(NPERele) 
iH 170. FER (e<) aWwEER(K) 
| 171.6 KL eek 
: 1726 RITE CIISUT, ga) WFER(KL) pHFER(K) 
; 173. C vote ve Mave MaDe a TRIANGULAR NerGHrING FUNCTION 
; 174 596, “CONT Tue 
j 175° 5963 CONTINUE 
t 176. De 59 Tadeo TAUOLILO 
i 177% SUM( LT) ade TAUOL2ZO 
178. TEST(T) 09 TAYO1930 


: 


179-6 OSUlTIea) TAUOLD40 





oi 206 lice atl pa celled as 2 gist " oi ital — “ = " wer . = ne 
a fiaeelatciee Daas 1 Sees EN ais 
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; 

1sGe 59 CONTIN ue TAUO1950 t 
Lele FX (KP YN) EXT TAUD1969 i 
1*2e FZCMEXN) 805 TA01570 : 
133. ARRAY (KFXN 25) 80. TAUOL220 
Li4e KT SxXEXNS] 74191990 
125. REAIPCOe (2GA(1)slateM) TAUOL1150 
1>6-< 250 Fu<MAT(SF4 101) TAUNI119 
127-6 DA 620 LalaM 
12&e “GGACT)s9GA(T) 
149.6 : TF (CSG ACT) eGEeK99.) BGGA(I) 0, 
1706+ 620 CANT INUVE 
121. IF (TSu¢t)eESel) Go Th Joge TAUQ1120 
172: vVitITE CATAPEa agg) (SGACT os Tey.M) T494430 
193. 7204 CONTINUE 
194. IF (1S.(2)eEQec) G& TS 7021 
{oS< SEeDaare(FZ2¢1lalsiat) TAUO1159 
196, aut FREMaT(SFLoel) * TA'INL170 
177-6 Te ¢iSu¢l)eESel) 19 TA 7o05 TAYO01180 
1v&e w2TTR(STAPEs 201) (FZ(T state) TAUO1199 
1996 Joos CUNT Pue TALIQ1299 
2506 CCF ie 
2ol. IF (yswl2)eFUe2) CC#1009, 
2526 £7 7024 Tales TAYOLPL9 
Pude FZ( 1) ssFZ2(1)7CC 
2 i4e ALR Y( 125) sFZ(1)«( 210064) 741391230 
205-6 IF(ISwtitjeEdelt) FZ¢1) 80¢ 
2°66 7°34 CPENTISUE TAUO1249 
2u7e 7021 CENT IMUE TAUQ4259 
BR. C2 45, -ski>M TALINL 299 
ac9e« Fe(n)eF< (Ket) t+DELFX TAU9L270 
210. 45501 CE TINUE TAUOLP AO 
2itle 451 CENTINUE _ TAU01290 
Z2i2e D> 36 KaKEXS 2” TAUO1L390 
2136 SSELZ(K) & 790 TAUOL3190 
214. g6 CONTINUE TAUCL 329 
2156 C2 33ya<FXNen TAYO12390 
2106 TF (REE XSF A (JS) 159021053 TAliog 249 
2176 AS CENTINUE ¢ TAUQ1359 
ei%. Al Jed TAUQL 249 
2ide REFIGA » SSACJ) : TAUOL270 
220° JREF ad TAN01339 
2ele bo CONTINUE : TA'01 299 
2226 SEADCTIN, 433) LN3,RHARK, COME 
2236 433 F32MaT(15,F10.3,5A4) 
eee wRITTECTIAUTS 45) LUNs RHIRKs COME 
2256 IF(ISWetyeESeg) YRITE(WTAPES 433) LVS RYORK TAU014390 
PAbe Oh sRHA YK eROENS TAUQ L449 
2276 739 CONTINGE 
2>b6 l=1 TAUNL450 
2296 Kot READ 44> oX%elZZ ,ICBDE sa IAL TA'304 460 
2306 x( 1) 8xXx TAUODI470 
23i. Z(1)#2Z : TAUO1439 
2426 TALTE(T) TAL TAYO1439 
233+ PRINT 7j32@eK(])2Z¢ I), IT CADE slab TAWOLS90 
Dive 7332 FIRMAT( 2Xs2F 41032 3Xe214) TAUQLF10 
2356 IF(ISs(1)0eEGe1) GI TE 7008 TAUO13520 
2Ib. IF(ISEST*EVe1) GHTS 7008 
237. VOTTE(STAPEs 44o)xX( 1) eZ2( 1), 1 C8DEs TAL TAU 94330 
OB. 7u0% CANTINUOE TAUDIA4O 
Pid. nel TAUOL550 
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Lel+. 
IF( (CADE #9) FQOls st osegl 
C¥ VTINUVE 
IFCI@EST e£Ge1) G8 TS 411 
CALL MELGD (Xa ZeNoF ree SUMy RHERKsTEST,DOSU) 
C2 TINJE 3 
IF (1S (3)eEGeq) PRINT 47 


FI-L™ e8INT Oy Lose 


D% apt <aKF XN 
SDELZsO6 


PA@LYGa™ PAINTS ba LaaP 


O° Sga¢lezay 

1QUMs! 
ExKaABK(T) = FXCK) 
2eReez(l) = F2(K) 
es. cone 
CONT Ty 

a E201) PDELZ¢K) wRHIDg(134344SDEL 22PCSN( Ky /RH9) GSTS 300 
POELZ(K) 8436 34*RHA*SDELZ 

ao HINHE 

LZ(KIeSSELZ(«)+pd ELZ(K) 
Biagmeee 1)4101050917410i 
aT) = SGACK)+PDELZ(K)#(20e67eRHYURK) /RHO 
PRINT DUO7P KOE X(K) PLUK) APOELZ(K)23GTO 
FaeMaT cl Se4Fige2) 


Ty Ne] re CAMPLETS 48UGUE? ANFMALY SN JTAPE 


IFC IswlpeEGett GF Te. 7003 
WRITE (STAPE, 5097) K,FXIK), P2K), PDELZ(K),BGTD 
q¢ T3 7009 
CANT pave 
IF (TSH (3)eEDe1) GA TS 7922 
PST Tyge Ko FX (K) oF 2K) ,PIELZ(K) 2*DSU(K) | 


@ CONTINUE 


esUTINGE 
TE (13w¢9)eLue1) G4 T8 7909 
IFC ILBEPeEDe1) GH TA acs 
IE CIS. (1) cE Vel) GI TA 790 
IF (JRESTeEDe1) GIT 7O09 
SRITS(ITAPE,S4)K,FX(K), FZ(K), POELZ(K) 
INTINYE 
CANT EOE 
IF (Si ¢4jpeESet) GI Te 473 
CALL PLATER(PDELZ.%,3AR) 
CINTINUF 
TE (LeLNT) 699439060 
REFCOR » REFOG4esSELZIU) 
De 4D A<akF yNeM 
SSELZ(K) ® SSELZ(«K) # REFCOR 
CANT INUE 
SREECASREFCHREF CAR 


TAUNL550 
TAUOI3S79 
TAUQ13520 


7a!'191590 
TAUO1990 
TAUNL§10 
TAU0D1529 
TAYO1S359 
TAIOIS40 
TAUNLVSS9 
TaUO1S60 
TAUOLS79 
TA!I921520 
TAU01599 
TAU91790 
TALOLZ19 
TAV017290 
TAUOL739 
TAUO1L740 
TAWOI739 
TA'IO1 769 
TAUQ1779 
TAWO1789 
TAWNL799 
TAU0L390 
TAUOLEIO 
Tayoi1#2o0 
TA!IOL 2 39 


TAUOLE5S4 
TALOI S60 
TAUQLRI4 
TAUOLRAO 
TAYO1EPD 
TAUOL2E90 
TAUOL9I19 
Tallo13929 


TAUOL239 
TAYDLI49 
TA'ING2539 
TAUOL360 
TAN9L 979 
TAUIL9IO 
TAYO1999 
TAUOAOOO 
TAUDe2I19 
TAVO2329 
TAUO2S39 
TAYO2940 
TAUN2D59 
ralinesso 
TAUOaNTD 
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Bele 
323. 
3°4. 


3° be 
3276 
BR 
3296 
330, 
3sle 
342. 
333. 
334. 
3556 
326. 
3376 
Bik. 
339. 
34% 
341. 
34?, 
343-6 
2440 
3456 
3466 
B47 
34h. 
3496 
330+ 
351+ 
3526 
353. 
3a4e 
335. 
3546 
3576 
BSR. 
359. 


NaN 


4422 


4404 


44n2 


C 


ann 


7640 
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CALCULATING THE RMS ERRIR 


Od 4422 Ks¢FXNyM 

IF ( SGA(K)eGE*90%) GITE 4422 
£S4¢«)sSSELZ(K) *9G4A(K) 

COY TINUE 

DD ge24 Ks<FXNIM 

Te ¢9ea(k)eGEe9L9) a9 Tt 4424 
IF (NFEReLT#4) FER(%)sRESA(X) 3 09T94929 
FRR («) 80 

»TFESO 

<STARTsKeNCER 

KAD DsKeNFER 

is] 452) KH&KSTART, <=END 


” 


IF (9Ga (KH) *GE*900e eHRenHeLyel #ARe KHeGte™) G3 TS 4929 


FE<(w) BFER(K)+NESA( KH) CONFER (KOK) 
eTFEaWTFE te FER (KekKH) 

CUNT ISUE 

cE <(e )aFER(K)/eTFE 

CONT Pe 

TRiSsITRES+4 

PESEeFOR(K) ##2+R=ISF 

#S ssNESA(K) #24 25° 

TB TINUE 

NEF SSSRT(SESF/ITRES) 

SS useQsTORSO/IKES) 
RITE CTI 9UT2 4425) IM8ps She IRES* RESF 


FHOMAT (OX, HITMAN gt 1504 RMS TRRBAaIFLOeS', VIMBER SF CSINTSZ115, 


* ty FILTERED RMS ERPARe 6 Ff 1 905) 
IFC yMaDeGTeIMAK ) GS TH 43% 


IF (YEW 2S) -EGey eANDe IFIRST®ED*eQ) GITE 439 


CONTINGCE 
IF IRE TRI 


IF (IEW(10) EGeLoANDSIMEDeL ing) GE TE 4427 
IFC ISW(6) eEWeg otReIMOD GT oe IMAX 0825 ( (RSSLD945) oe Te 2SQ 


* (L189 eGTe 1)))GRT® 438 


SRANCHING ®UT SF mSDEL ALTERING PART 9F mM PRAGRAY 


CONT IUE 

23 4425 LQ2l,"%CH 

9 442 LOQs1e"CHe+! 
AA(L99LQ09)29 

YJCL ax(N) 
ZO(1)aZ2("!) 

KsUREF 

MCHaiy 


EMPUTATION BF D/OZ FER THe REFERENCE POINT 


3 7450 lataNet 

TEC IALTE(ITyeEGeg) GE T9 7659 
SOELZa.; 

Sd 764) IDUM81,5 

IT s]0uy 

PR Gay (l4+1)*x 
EXXXaX(14KK 6 
ZEZE az 14K <4 
CALL CIMP 
CONT INGE 
“CHa” CHo4 


(Ie1) 
I1)) sFx(K) 
TI) )@FZ2¢K)4D0 11) #SIGN( 10s ARG) 





TAUN2949 
TA'92995 
TAWIN219O 


TA: ;902139 


TALDeLID 
TAYOe2129 


TA'IN2149 


TAU02159 
TAUN2169 


TA02179 
TAYO21 29 


TAUD2Z21O 
TAUQ2229 
TAUO2239 
TAiO2249 
TAYO2239 
TAUO22459 
TAUQ2279 
TA'NIO22 R29 
TAUN2290 
Taude390 
TAYO2319 
TAWIO2220 
TAU902330 
TA'O23249 
TAyO2359 
TAUO23240 
TAU0N2370 
TAU02349 
TAUD23P99 
TAUOe4O0 
TAUOe410 


© (hentia! CORR a 


292 ; 
: 
360° RECEL (ACH) my Ze 34#RHODMSLELZ TAUOR429 F 
351, 765) CONTINUE TALOZ439 ' 
382. $701 FU MAT(1xeT2e10G10°3) TAUDZ44O 
| go3- «CDF s) TAUO2459 
sb4e IF (1Sw(7) ef Ged) wRITE(TIGUTS4701) KCBDEs Ks (RFDEL (KI) » eDe1.4CH) = TAlI0R44S9 
| Bod. C TAUO2479 
364. € STPRING THE PLD VALUES OF PDZLZ TAUDR4EO 
37 C TAUD2430 
| 355- TFCILASP cE Teg) GH TS 434 TAUDD590 
| 359. - ha 422 KaKEXN,M TAUOeS19 
370-6 432 POIN(K) aPDELZ(K) TAYSG2529 
371. G8 Tn 436 TAU02530 
3726 4% U3 425 KekFANe TAUOR5S4O 
373+ 435 SSELZ2 (4) aSSEL2Z (6) 2PDELZ(K) Tallo2559 
374. C SSELZ(*) 1S "8% THe SUMMED VALUE BF ALL PSLYGB' CANTRIBUTIANS 
375, Cc g*C=Pr THAT DUE Gt The CHANGED PaRt 9F THe “A8DEL 
375. SRF ec aSREEc@PDLL2( UREF) T4j02569 
377. 436 CANT INUE z TAL02570 
375. IL "BP a4 TAlio2s8q 
3796 IM*OeIMODN+1 TAII02599 
320-¢ cc TAUO?S90 
331e € FIELD P8INT 28 LosP : TaUoesio 
Re 26 € TA'I02S20 
3236 OY 7257 KaKEXNeM TAUO2S30 
Qak. IF (8Ca(K) 0460990) G8 T? 7§30 
355-6 Te (keEQDeJREE) 358 TY 73850.. TAY02650 
3266 'CHs0 TALIO2S49 
337. c TAUN2550 
BRR c CheneUtTiIng 27D7 F92 EACH CHANGE AGLE pBLy pBINT TAUNRS79 
349» C TAUO2ZSRO 
390° 29 783, TateNe} TAUQ2Z4ID 
391. TFC TALTECT 2 e£Q.0) GS_TY z7g3v TAUOZTOO 
3926 SPELL aoe TAyO27190 
3236 bY 7sa) [late TaUne720 
394. aiGavc(l+t)-X(let) TAUN2730 
3956 ExxXax(leKe(11)) sFxXtK) TAUO274O 
37h. ZEEE mz (Te KK (TI) 9 SF 72(K)+0( TT) aSIGN( 12 2ARG) TAUD2759 
3376 LDUMafl! Je TAVO275O 
392. CALL CMP TAUO2T7O 
399+ 722an COsTIN Ee Tayoe7®9 
4086 ICH e™CHeoi TAUO2799 
4516 DEL2¢ 1CH) 943034 #2 HED#*SDELZ=RFOEL (MCH) TAUQ2R90 
492. PRIN CANT TINUE Tavoerio 
435 4£CUDE 21 : : es TaAUOe2&20 
} ac4, IFCISwC7) fF Wel) WRITECIIGUT, 4791) KCADE,K, (O9DELZ(KD),KDs1,4C4) = TAlIO2R30 
4 56 c NN, ADD THE CONTRI BYTION TE THE NORMAL EGUATIAN TAYO2ZR4O 
4 be c Taligassn 
427° c@ 7835 LleteMCH TAVO2%60 
HRs DF 7234 [PateMCn TAUDSE7C 
449. AACTT, IP) SAAC II,IP) 4DDELZ(IP)#ODFLZ(11) TaAUDe Rac 
41Oe° 7734 CANTINGE TAUO22 70 
411. LACTT, CHL) SAAC TIZMCH*1)4FER (K)*ODELZ(I1) . TAU02390 
4126 7A35 CBUNSTINGE TAYO2910 
4136 7450 COsTINUE TAUO2920 
4i he C we Have NOW FINISHED SETTING JP THE NSRMAL EQUATISNS TAUQ2939 
4156 SPS30405<20 TAUOGS4O 
4166 TNoicaed Tayoe?50 
417. Caro TAUDRISS 
#1 Ss c TAUQ2970 
4196 c 


NOTE THaT NRC 1S THE *UMBER BF CBLUMS IN THE MATRIX Aa T0223) 
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MP4 gM Mite] 

LF CISW(7) ef Qey) AUTPUT FNORMAL EQUATIONS A WRITECTI SUT US49 
* 9, (MP1, CAACI I, JJ), dual, mPt),[Ist,MCH) 

FORMAT ING1L 03) 

CALL SIMUL (MCH, AAs ¥SeEPSaINOICsNRC,DETERY 

IF (TSwW(7) oF Qe) SUTPUT DETER, (XS IN)» TW a4 yMCH) 

CALCULATE THE Niv vaALUcS 6F THE PBYGON PRINTS 

nC+86 

4 7ego Kalan 

TE (TAL TECK) eEQey) GA TE 7850 

4CeX C44] 

2 yaZ(K)+XS (MECH) we Ped EL 

IF (CZ mK) eL TeO02) 2( “1802 


cBuTINGE 
TF Craw(7)efGel) SUTPUT "NES POLY POINTS's GUTPUT#®(Z(K)2Ke10N) 
pled TR at? A 


CANTINJE 
IFC IL@#P6E 30) 38 Th 434 
MANING THE WEIGT CALCULATION FOR THE MODIFIED PSLYGSN 
Aa 1S JUST A SARBAGE ARRAY 
CALL WElGO(AaZeNaF¥ yg 4eAAp 42 2AAgOWGT ) 
[9 441 KaKEXN,™M 
IF CIRESTeESe4) SUM(K) 8STSUY(K) 
STSUN CK) SSIIM(K) 
STOXING THE VALUE BF Sum T6 YSE IN FYTURE CALCULATION. 
Sul ee yp aSUM (KS (IeGT (K)eDSU(K) J/REBRK) 99 
C+ST(*) 13 REING USED FAR TEMPBRARY STASRAGE 
SUTPLT "Ney POLY PAINTS »FINal VERSION! 
SRITECTISUTe 449) (XK) eZ (CK) eK ete) 
FASMAT(2Xa2F 1002) 
TFC TSESTeETe1) GaTS 4041 
IF(ISwlt)e& Qed) wRITE( UTAPEs 42) (x( Ko 2(K) eKedeNed)3 
* RITE CCTAPES 442) KINI A2Z(N) 2 1CODE 
CANTTNUE 
PRINT 34 
OF 79G) KakKFXNG 4 
YwOT(K) #SU4(K) eRNGT 
SSSSOsTSELZ(K) eSREFC 
IF t1Swl12) eke) 
* NeGTEK) S9WGTIK) +AaRRay(ky5) #2067 
PRINTS 2 aKa eX (K) a ELK) 2 SSSSS~aSSELZ(K) ARESA(K) 2O8GA(K) 
1, SU ck y,OWGT(K) »sTEST (Ky s FER (K) 
FORMAT(TS26Fyoeze ybeneF y6enaFyoeqgeF ey) 
CONTINUE 
Te(iSw¢t)eE del) GI Te 7O00 
IF (IPEST¢EGet) GITF 7000 
WRITE CUTAPE,S2)K,FX(K),F2(K),SSSSS,SSELZ(K) ,RESA(K) , 9GA(K) 
1 oSlimc Kye Dw lK) 


7ono CUNTINUE 


CALL PLETE (OWST,M, BAR) 


4229 CONTINUE 


IF (1S4(4) ¢E 201) Gt TA JAois 
tNC FILE JTAPE 


701d CINTEMY 


615 


CONTINUE 
IF (ISwt5)eF&Get) Naas 

ATRAY(270e1)8ARR AY(M,1) 
CALL PLITACLNGs ARRAY 2500 aN4s Ms D000 Le FDUM*AF ODUM) 
“JTPUT ' gm— THESRETICAL GRAVITY IN MILIGALS 


TALO2990 
TAI!N3990 
TAN93910 
TAUO3D20 
74103939 
TAUQ3940 
TAUN3990 
T4'J03960 
TAUN3979 
TAUN3BORO 
TA 03290 
TAUO3199 
TAUOQ3I10 


TALION3129 
TAUO31 39 
TANIN3Z149 
TAU03159 
TAl!931450 
TAUQ3479 
TAUN312%0 
TAU93199 
TAU03299 


TAVUO3219 


7403229 
TAYO3230 
TAUDN3ZF49 


74103290 


TAUO3310 
TAUD3320 


74033309 
TAUB 240 


7403350 
TeU93379 


TAUO3220 
7YAU03390 
TAUON3490 
TAUO3ZB41N 
TALIO3 420 
TAUQ3430 
TAUO3440 
TALIN3 450 
TALIO3476 


TAUO3430 
TALIO3330 
TAUONZS4N 


Teed | SANieatSe ts itn Sie aae 





- 
a 


| zi 

EDs SuTPur « ae DIFFERENCE DETWEEN THEBRETICAL AND PSSERVED GRAVITY) TA''9355n 
4.1, SUTPUT ' 3a BBSERVED GRavy] TY? TAIN3540 
{ 4>2e MuTPLT § 4s ELEVATION IN 10 S OF METERS? TAI03570 
433e IFC ISW(49) 066Gey eANDe IFIRST eENeQ) GBTE 4423 

Had, 999 CUNTIMUE TAUIO3520 
! 4sSe C STORING THE VALUE SF x 
{ 4Rbe IF(ISw¢6) eNEet) Ge TS 7012 

4S7- READ( TINS 6932EN087044) LNBs RHENEW 
aaa. IF (LSS eNE 099) GE TA 7011 
4RDe : IR&ST st 
| 4°05 IMiped 
{ 4 Ile RS 4810670 
j aude B32) KeKFXN,! 


423. 630 §S£b7 (4) sSSELZ(K)-PDELZ (4) 
| ee 44. C SSFLZ(*) 1S N39" TRE SUMMED VALUE BF ALL PO@LYGBN CANTRIBITIANS 


| 465, ¢ EXCEPT THAT OUE OT THE CHANGED PaRT 8F THe MODEL 
4ohe HyTeut ' NOw RECALCULATING THE MPDEL USING NE VARTASLE PB, yPSINT 
4o7. SG) 
4IB® 55 Te 799 
4296 c TREST IS SET EQUAL Te 1 Ty INDICATE. THAT 
570; C we aRe Pe,DING AN aODITIO™ Ser OF PAINTS FAR THe LAST 
i Bole ¢ PeLyGes T4 SEE THE EFFECT OF USING DIFFERENT 
SR. C Vakladle PALYGEN PAINTS 
5U3e 7014 CANT INJE 
Soke CALL TAICC(TIME) 
{ 505. sUTPUT TIME 
4 SC 6.6 ST°p TA'ND3629 
| g07-6 SU°RSUTINE COMP . TAUO3620 
i Sr B- RREUXKX##O+7EEE ea TALO3S45 
Hh 509. LF CEX¥X) 21022400220 ; TAUON3650 
ie 510° 210 Te ( ZESE)220*23072 20 TAUO3ES 
1 Site 220 THETBSATAN( PERE sE xxx) 301415927 ; TAU03679 
1 | 5120 GP TS 3yt TAUQ3S29 
i 3,3. 239 THETBSATAN(ZEEE/E XXX) #30 1445997 TAUQ3899 
is S14, ae te 301 TAUON3720 
5156 2ug IF (ZEEE) 240922600270 i = : T4U03710 
316° 259 THETB 89105757963 TAUQ37 29 
$17. Ga Te 30! be : : TAUO3730 
i S18. 260 THE TReO® TAYO3749 
1 Sid. BP TO 361 : TAUO3759 
if Seoe 279 THETiH24*#5707963 TAUQ3760 
S21. a3 Te 301 TAUO3770 
Sere 2%Q THETESATAN( 7EEEsSE XXX) TAI037%9 
t S23. 381 IFCIDUM*1) 3091230022 3001 pelure! ' TAU03799 
S24, S001 CHECKS KX*#ZFEE @LZEEREKXX TAUO3RI0 
| S256 IF (CHECK) 22093192325 TAUOSELO 
j 5266 316 DFLZarie TAUQ38 2h 
. 527-6 G3 ‘ TAUQ3830 
i Hpk. 320 2 Goac THESAGTHETE TAU QaZ& an 
ig 329. IF (2G) 3291, 3202, 3202 TAOS R50 
S3o¢ BPo@ Te cee gAe3*1415927) 3302 3302 345 TALIQ3R Sq 
) Sa4- 3201 IF (SMEGA+3° 1415927) 3402 3300 339 “ TAUQ3879 
S366 330 NTHETsAMEGA TaVO3KRD 
543° Gt TB 376 : TAUO3830 
She 34g TF (SMEG) 35493608 36¢ TAUQ3ENO 
535- 351 OTHETsSAMEGA+6* 2831853 TAUQ3910 
576.6 $8 Te 379 TAUO3520 
S476 34y UTHET eB mE GAe69 24 34853 TAYO3F30 
Sik. 3790 AsCrECkKs( (EXXXMEX 4) aw 2e( ZEEL @ZEE) we 2) TAUQ3949 


j 5396 fa (h xX XeE XX) @OTHET TAUO3950 
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Ca dese ( ZOEFeZEZ) eALUG( 2R/R) 
CFLZs24(B8eC) 
Hol SDELZeSDELZ+0EL2 
3Cn2 trxxk ei xXx 

ZEEs2ZFEE 
keR= 

THETASTHETS 

PETURN 

END 


TAUNZI460 
TAIIN3979 
TALINZIRN 
TAlIO3990 
TALIO4 IAN 
TAUOSI10 
TAU04729 
TAUO4S939 
TAUD4S 949 











PEE tee eres « 
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; eR208 Iu TegCO vyge Cat yasoo Tes n9g0f HE o9i°G =EE 
; eszoc (Gee goz00 CTk TOs Grpo es nag Sze Cnz-O “ge 
cEZ¥8, Use vezOO Ube CEe2 32200 O22 pect: Ofe 05200 Oz 
€3t0c ca g8tco Coz 201 3c0nc 10 Stooe «Ort qz200 46 
enec0 Os BETO eg 9s ge200 €¢ tagCt 260°C Ig 
secOl yn OgC00 ch bh gz909 es 3€29 gited 1 : 
987 139V7 587 | 138V9 73847 59775 W287 67 30501387 
Xr Xs ¥ 9H xX Be X53 
; T A 4GgGOC AWuSY & oz 
i i A wOCTe &1¥D5 a 22 i A IV9IG wivos ¥ 3337 1 A ¢deoTo BtWw3S & 3372 
; Coz =a 98900 avaav & z i A 26800 Avaay & re T A 600TO -ytWas ¥ Xx 
c2 A Can away & Sx Oce =n EOSSO avery & ¥ T A £0°TC wos & Bai 
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HIGHEST ERRAR SEVERITY: o (NO ERRORS) 


AAR DEC HEX 

ay TRA WARDS WeRDS \ 
coe 4 eeeane e2ee28e 

Mig) [aio GENERATED CODE? 1946 g979A 
a Pee CONSTANTS} 35 00023 

be GOCAL VARPADLEG:- 4eRe.._ gigge 
3. ON TEMPS: =—ss gg 00008 
a I re 
es ‘ — TOTAL PROGRAM? 6144 01800 (PLUS BLANK CeMMeNn) 
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Cc 
C 
C 
C 


C 
C 


SUBROLTINE ALTO(ELEVs ICEPsHEIGTsKK) 


VERSION BF 13 wANUARY 1971 
SLBROUTINE ALTO, RETURNS VALUE OF HEIGT (NEGATIVE BELeW SEA 


LEVEL) KK RETURNS » 9 IF NEW DATA REC8RD SHBULD BE 
READ, @8TKERWISE KK # Oe 

KKsQ 

AsABS(ELEV) 

IF (A"0e004)10021002200 


ELEV = ZER6 
CRECKING CEPTR 


10¢ 
11¢ 


12C 
130 


IF (ICEP) 11041102130 
KKe9 
G8 T8 990 
KEIGTSELEV 
G6 Te 990 
KEIGTseIDEP 
G8 Te 390 


ELEV NOT ZERB 


20c 
eic 


99C 


IF (ELEV)21021000210 
FETGTSELEV 

Ge T6 390 

RETURN 

END 
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; te SUBROUTINE AN@V2(ZZsZHTeNXsKGCACKGMBsKGYR&KGHMs KBGDAsXX2 YYs INIT? 
a ee 1 CATAs»ICEC) 
a 3e Cc # 24 wLLY 4974 * T@ ACC HEORJZ ANC VERT ANNOTATION 
a 4e Cc 
2 Se 1% 
6« 
q Je C SLEROUTINE ANBVS ANNGTATES PLOTTED POINT WITh DATA VALUE, TIME, 8R DATE AND 
Re €> TEHE : 
Se (ie } 
1C- C $Sw(3) UP TO ANN@TATE BNLY AT ChANGE OF DATE ; 
; lle C ssh(7) UF Te ANN@TATE BN LEFT SIDE BF TRACK 
12s C S§Sh(11) UP T@ ANNOTATE ALTERNATELY SN LEFT ANC RIGHT SIDES BF TRACK 
: 13° C $Sh(18) ¢ TA FAVE ANNOTATIONS AT RIGHT ANGLES TO INCREMENTAL TRACK 
7 14e Cc 1 Te ANNOTATE KORIZONTALLY 
15° Cc @ TO ANNOTATE VERTICALLY 
166 c 3 8N TRACK HEADING c9q TO 2694 TG INVERT ANNOTATION 
176 Cc 4 TO ANNOTATE EITHER HORIZ BR VERT CePENDING UPAN DIRECTIAN 
18. € 
19¢ Cc USES CALCEMF SLBROUTINES ANDO ISH 
20° ¢ 
21° CIMENSI6N FM(4), BNTH(2), DAY(2) 
226 bCT80eC7#ZRT 
23° IFCINIT) 80080085 
24s C TRETA IS TRE INCREMENTAL TREAD GF TRACK 
fF 25° &C AX#XXeXALD 
Bs Z6e AYsYYeY8LO 
: ave C 6pTISN Te FLET yALLES HORIZONTALLY OR vERTICALLY 
28 IF(ISW(148) eNEe 4) GA TB 110 
es¢ TRATASC 
3C° IF (ABS(AY © CeO&)) 400268258 
31° tic IF(ISW(y8) eNEe 2) GO TO 131 
32° TRATARLES7IC7S9 
i 33° IF (ABS(AX © C*08)) 400058458 
3 346 111 CANTINLE 
; 35° IF(ISW(48)*EGe4) GB TE ¢S 
366 C CereRMINeG ANGLE ALONG WHICFk TA ANNOTATE 
E 37° IF(AY) $0051054 
s 38° 5c TKATAzABS(AY/AX) 
a 39° ThATAw, e570794ATAN(THATA) 
: 40. IF (AK oGTeCeo) THATAS@THATA 
g 41e c8 78 §$ 
: 42e 51 TRATABABS(AX/AY) 
436 TRATASATAN(THATA) 
aye IF (AXeGTeCe) TRATAS®THATA 
“Se 59 IF (1SW(18) eEGegeANDeTHATACGT 04057079) THATAsTHATA#30144459 
466 IF (ISW(18) eEGeSeANDo THATA LT 091057079) TRATASTHATA4+3,14159 
47° cé Té §8& 
“Re 2S @XeABS(XXX6LD) 
436 BYsaBS(YY*Y6LD) 
5Ce IF(BX*BY) 36,36,30 
Sie C ANNOTATE VENTICALLY 
5ze¢ 3¢ TRATAs1{ 057679 
52 Ge Te 58 
Sue C ANNOTATE HORIZONTALLY 
55° 36 TRATASCeO 
. 56° SR TRETAsTRATA#57929578 
: 576 C CheCK IF DISTANCE INCREMENT ALONG TRACK FROM LAST DATA POINT JS SUFFICIENT 
5a C  TRAT NEXT ANNOTATION DBES NOT OVERPRINT LAST 


596 TAKSSGRT(AX#AX+AY#AY) 








ice eae 
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6Ce IFC ISW(41)) 71471270 i 
61° 7C TAXsTAX#O0eC4#ZhT i 
626 71 TAX#TAX*0eC8#ZFT i 
} 63- C IF TAX IS NEGATIVE, INCREMENT JS INSUFFICIENT TO ANNOTATE, RETURN 
} bhe IF (TAX) 400292292 
al 65¢ Sc IF(ISW(ii4)eNEot) GO TA &c 
} 66° 61 K8LNT#KBUNT4L 
67° ISIOEsMB8O(KEUNTS2) 
q 68 IF(ISICE) $3093094 
69e “6C IFC ISW(7)) 94,94,93 
7Ce & OFSETaeO +34 
4 71° G8 Te $5 
| 72° $4 EFSET=¢+08 
| 736 SS XXTeGFSET#COS(THATA) 
fi The YYTaOFSET#SIN(THATA) 
. 750 A=Cei4aZhT#SIN( THATA) 
76° BsCe14aZHT#COS( THATA) B: 
77° CaCeC7aZhTHSIN( THATA) 
B | 78. Cecec7aZHT#COS(THATA) 
796 XT®XX+XXT 
&Ce YTRYY+YYT 
&1° 10C IF(NxeNEet) G8 TE 320 
82° C CrANGE FALR ANC MINUTE FORMAT FROM (14) T8 (414) FORMAT SB YO PRINT FEUR 
&3e C CIGITS 
Bue eM (1) skKGKM/1C0C 
| &5e bM(2)3(KGHM=HM(4)#1000e)/1008 
. &be KRM I skM¥ (2) 
7 R76 kM(2) ®KEMI 
f 88° BM (3) e(KGEM=(BM(1) #1000 e¢-M(2) #1000) )/10¢ 
! RQe KEM] sk¥ (3) 
| Ce BM(3) KEM! 
: Sie MO 4) SKGHMO(RM(1) #100004 ,M (2) #1 COetHM (3) 4102) 
920 C CRANGE Cay ANC MOATH FORMATS FRE (12) TE (elt) S@ Th PRINT TwWS DIGITS. 
93° CAY(44)#KGDA/{0 
94. CAY(2) ekGDA=(DAY(1)#10¢) 
95° BNTH( 4) 8KGMO/4¢ 
96° BATH(2) sKGMGe(QNTH(1) #1Ce) 
\ 97° C ANNSTATE CATA PRINT 
4 98° 28c IF (KEDAsNE *KOGCAcANDe ISW(3)eEGe4) GB Th 254 
g9°¢ IF (KGDA*KBGCA)291.2900251 
100° 291 CALL NUMBER(XT,YTsKGTsCAY(4)aTRETAs 91) 
1O1e¢ XTsXxT4+C 
102¢ YTsYT#C 
103¢ CALL NUMBER(XTs YTshGTsCAY(2)2THETAs 91) 
104. XTeXT+B 
105¢ YTSYT+A 
106¢ CALL NUMBER (XTs YTehGTsONTh (4) sa TRETAs@1) 
107° XT#eXT+D 
108+ YTSYT#C 
7 109° CALL NUMBER (XTsYTsHGTeONTR (2) a TRETAs©1) 
11C XT#xT4e 
1iie YTSYT4A 
112° YEARSKGYR 
Lide CALL NUMBER (XT, YT» HGTs YEAR, THETAs@1) 
1146 IF (ISw(3)eEGe1) G8 TOA 34¢ 
115° xXTaXT+(200#8) 
1166 YTSYT+#(2e0#A) 
417° 2Sc IF ((Sw(3)eEGe1) G6 TA 34¢ 
118+ CALL NUPBER(XTe YT oHGpoHRGL)eTHETAD SS) 


4 119° xTeXxTel 





YTs8YT#C 
CALL NUMBER (XT, YTsHGTo RM (2) se TRETAs ©4) 
XTsXT*C 
YTsYT4C 
CALL NUMBER(XT, YTshGT shh (3), TRETAs #4) 
XTSXTeC 
YTSYT¢C 
CALL NUPQER(XTs yTshGTake (4), TRETAs #1) 
Ge Té 340 
32ec CALL NUMBER (XT, YT, bGTs DATAs THETA, ICEC) 
C RETLRA FEN Te DATA POINT 
34c CALL FLOT(XxsYYs3) 
342 X6LCsxx 
YOLCsYyY 
40C RETURN 
85 KOLATS&O 
TRATASCe 
TRETAsCe 
X6LD aCe 
YOLOs0e 
G® Te 60 
ENC 
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RKIGKEST ERR6R SEVERITY? o (NO ERRORS) 


CEC hE X 
wOROS WORDS 
e@eee eeeea 

GENERATEC C8CE: 462 CCiCcE 
CONSTANTS? 23 CCC17 

LOCAL VARJABLES3 3é coceo 
TEMPS: 17 COC11 


TATAL FREGRAM3 534 coeié 
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re. SLUBROLTINE ANOV3(XXsYY,CEPT,s AMAG ) 
26 ¢ VERSION OF 15 DEC 1971, ACO SIZE VARIABLE AND CHANG 
3e C DEPTK LIMITS FER SHALLOW EPICENTERS 
he C SLERSLTINE AN@V3, TO MAKE VARIABLE SIZED SYMBAS FER 
Se Cc EPICENTER DATA DEPENDING LFE&N CEPTH AND MAGNITUDE 
60 Cc 
Je C CEPT s CEPTH IN KP 
8. C AMAG #® MAGNITUDE (MAXIMUM IS 7-5) 
Ge C 
10° C 
41e CATA ISTRT/O/ 
126 IF (ISTRT)15,5,15 
13° § @6UTFUT 'ANBV3. VER 45 CEC 149714! 
14° C SIZE #1¢0 
1S .¢ SIZE #2e0 
16° BUTFUT SIZE 
17e ISTRT « 1 
186° € 
19° Cc END 6F INITIALIZATIO6N 
2Ce € 
ele 15 Ip (CEFT= 700C)20220222 
220 2c INTEQs, 
23° G8 T6é 50 
ake ee IF (CERT e15000)24s24226 
25° 24 INTECs2 
26e GA T6 50 
27e 26 IF (CEPT #300¢0)28s28s30 
28e 28 INTEQs5 
2ge G8 T6 50 
3Ce 3c. «OIF (CEFT#S00¢0) 32032034 
31° 3@ INTEGs12 
32° G8 Té 50 
33° 34 INTEGsO 
340 G6 T8 50 
35¢ Sc IF (AMAG*"4e5)52,52054 
36° Se FF%140C 
376 G6 Te 100 
38° 54 IF (CAMAG"5°5)56256058 
39° 56 KFe2eC 
4Q« G68 Té 100 
aie 58 IF (AMAG*605)60s60262 
42° éC FFe30C 
43° G8 Te 100 
hae 62 hE e4eC 
456 G6 Te 100 
46e 1CC  —hGT#O0eC7#FFeSIZE 
7 CALL SYMBBL (XXsYYaHGTaINTEGs CeCe 1) 
4&e RETURN 
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SUBROLTINE AREAK(CLATsCLENGs [AKEY) ' 
VERSION OF 1 DECEMBER 1971 


VERSION SF 1g OCT 1971, DUMMY ROUTINE 


SUBRSLTINE AREAK, GIVES VALUE TS COCE IAKEY WHICH MAY © 
SLBSEGUENTLY BE LSED IN SORTING GSUM RECBRDS INTE A 
S68 CESIGNATED BY CIFFERENT VALLES FOR IAKEY 


IAKEY = Q 
RETURN 
ENO 
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SLBROLTINE CALSC(A,BsCeCsSCr CC) 
: SLBEROUTINE CALSC, DETERMINES SIN AND COS 6F ANGLE 
6F TILT BF DIGITIZEC B cad 
ReSGRT((C#A)##24(D9B) ##72) 
SC#(DeB)/R 
CCa(C#A)/R 
RETURN 
ENO 
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SUBROUTINE CDATE (IDALsIrOislYRisIHMis 
1 IDAGs,IMO2elTYR2eTKM2eTIMC) 


* @ CEC 1970 /2200 ©= SeABBBT 
keF ASA BASIC FORTRAN (EXTECOED) 
MO@CIFIEC FOR SIGMA 7 ewe 2C CEC 71 


» PURPQ@SE; COMPARES TWA CATES AND RETURNS TrE TIME 
CIFFERENCE IN DECIMAL HOLRS (TIMD) 3 
'TIMC' WILL BE NEGATIVE IF CATE 1 IS AFTER CATE 2e 


* EGLIVALENT 78 SUBRe 'CDATR?+ EXCEPT THAT TRE HOUReMINUTE 
ARGLPMENTS ARE SUPPLIED AS INTEGER NUMBERS.» 


* TRERE ARE NO DATE LIMITS FAR INPUT CATA 


AkM1 = THM1 
AkM2 = JHM2 
CALL NCr (ICA1,1MO61,.YR1,AHM1,IC01,T1) 
CALL NCF (IDA2,IM@2,1YR2,AHM2, 102,72) 


* CALCLLATE TIME DIFFERENCE IN DECIMAL FOURS 
TIw~D #(102 = 104) 
TIMC s TIMO * Bho 
TIMD = TIMCO + (T2eT1) 


FETURN 
ENC 
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SLEROLTINE CHGMT(KDAs KMGygKYRgKEM,KTZ,KGCA, 
1 KGMO,KGYRsKGHM,NTZ) 
CIMENSION MBDAY(12) 
SUBROALTINE CKGMT Te CETERMINE GYT DATE AND TIME 
FROM LOCAL TIME 
Tee SIGN OF Tke TIME ZONE DIFFERENCE IS 16 G6 
FREM GMT TIME TA THE LOCAL TIME. THUS IF 
GMT = 18COs AND LACAL = 1400s KTZ ®& eChe 


MOCAY(1)s831 
MOCAY(2)828 
MODAY(3) 231 
MODAY(4) 8350 
MACAY(5) esi 
MBDAY (6) 830 
MODAY(7)831 
MBDAY(8) 831 
MBDAY(9) 830 

MACDAY (10) #31 
MBDAY(11)23C 
MAaDAY(12) 831 

KGHM sKRM=(KT2#100) 
IF (KGEM) 11001260128 
KGHM 824004 (KHMe(KTZ#10C) ) 
KGCAskCAe4 

AuKYR 

BekYR/4 

AsA/4eQ 

IF (A~B)1122122,112 
TF (KGDA) 11401142120 
KGM6*KMBe} 

IF (KGM8) 11641182116 
KGYRSKYR 

KGCAsMADAY (KMBe4) 
G6 Té 150 

KGM6s12 
KGODAsMBDAY(KGMB) 
KGYRsKYRej 

G68 T8 150 

KGMOskM6 

KGYRSKYR 

G6 T6 150 

IF (kMO6°3)11221234112 
IF (KOA*1)1120124e112 
KGDAsMADAY (KM671)+1 
KGM6skM6ej 

KGYRakKYR 

Ge Te 150 

KGDAaKCA 

KGM62KVB6 

KGYRsKYR 

Ge TA 150 

IF (KGRM#2400)42621312143C 
KGRkMsCO00 
KGDAskCAel 

AsKYR 

BsKYR/4 

AsA/4eQ 


Ve ex Pwr 








315 if 
6Ce 134 IF (KGDAeMODAY(KMB) ) 43641362138 a4 
61° 136 KGMe=KkVe a7 
626 KGYRskYR a 
63° G6 T8 150 BE 
646 138 KGCAsy 44 
65° KGMBaxhBel / 
666 IF (KGM8913)1401422140 a4 
67° 14¢ KGYRsKYR iG 
: 68s G8 Te 150 1 i 
S 696 142 KGMBe4 13 
i 706 KGYR®KYR#1 | 

71° G8 Te 150 j 

7ee 444 IF (KM6"2)13421469134 

73 146 IF (KGCA*2$9) 13421360138 

The 43C KK#KTZ2#10C 

756 KGRM 8 (KHM KK) ©2400 

760 Ge T8 132 

77 150 ATZeekTZ 

78 RETURN 

7Ge END 


" arian 


ii 


: 
3 
% 
% 
Se 
i 
A 





ahr 


2t 

AWWNO 
AWWNG 
AWWNG 


Squem 


.| 939 





A 40000 


A Tt0004 
A Lt000¢4 
A sto000¢ 
d 00000 


387 
X3H 


Ont 
OEet 
O2t 


138V1 


AVuUY 
wi1v9os 
y1vos 
w1v3S 
90udS 


Ssv719 


»» 40000 


AVGOW 
Ow» 
yAd» 
yqo» 
4WOHD 


3gAL 3WYN 


st ee 


get 
get 
gett 


43ev4 


AWWNnG 
t 
AWWNG 
AWHWNG 
t 
Sduom 
330 


g@ 30900 


gg009 Ost 
48009 9€T 
39099 «get 
yr009 9fT 


eascee een 


389 = 13av4 


A 24000" 
A 40990 
A 94000» 
A 019008 
A 39909 


367 
x34 


y1WoIS 
y1V9S 
y1V5S 
y‘Ivos 
y¥1V5S 


5SV145 


9Te 


£9999 st¢ 
a0909 TT 
019909 91 
£0909 2 
68909 Sst 
Sayom sayem 
X34 339 





tavNoGss Will 


tSdan3l 


?S3qavisva W307 


*SLNV¥LSNO5 


$390) J3lv4¥3N39 


(SN@yu3 ON) O sALTH3A3S yOyyN3 LS34914 


v 99000 


gy099 
@R099 
#9099 
g7099 
387 
x34 


(Lt ee ee 


Bgal 


gat 
vet 
42t 
ott 


3aVv7 


yAy 

>» 
CP Tb 
vox 


3WWN 


Nd113S56 


4116 


803417934 Swvsd9esdaIS IwNY3ixa 


LWOHI 09900 


tSINIQd AYLNG 


(SQNO0™ 9) N@AWOD NVI 


Avaew 19000 


1w943 90900 


$(3duom 90) S3ngviywA TW904 


Sy000 wat 
gz000 «(2et 
T9000 Eat 
€,000 ett 
3907 9 83913av7 
x 3H 
ANW10 A 610906 
AWWA A T0008 
AWANG A ETOOOe 
AAAIG A BTOIOe 
tT 4 000950 
T A a0090 
Sayem 384 
333 X34 


460990 
62099 
35900 
92999 
384 
x34 


4Vv3S 
ys 
y1V9S 
4195 
y1voSs 
yqv3s 


SSV1D 3gal 


1 Le me oe 


eet 
TET 
eet 
Ott 


V3av1 


Zin 
ZL% 
a4 
AHO 
1d9HD 


3wVYN 





seca ARAN AL tay aUAtie DNS rR RES ALS  IPUECIT  . vmCa a 





317 
‘ ie SLERALTINE C@BRR(XsYseRLONGsRLATsITSTsUTST) G3CC3810 
Ze C CrANGES Lat ANC LONG TO TRANSVERSE MERCATER AND VICA VERSA G30C3R20 
4 3e C vERSION 6F JLNE 1972 G30C3830 
he C MOCIFIEC BY BRUCE SIMON G3CC3840 
Se TIN*®105 G30C3850 
6s 116LT#1Cc8 G30C3860 
7s IF(UTST) 202015 63003870 
Re é  IFCITST 19121402 G30C3880 
Se “ 2 COANTINLE G30C38390 
1Ce ITSTs4 G30C3900 
tile E25 0676865799 Ee2 630.3910 
12° CTRs301418926535/1808¢ G30C3920 
13° RTCa1e/OTR G3DC3930 
14e ARCRD#360C e #RTD#30 0713114 ; G30C3940 
15° AAG6378206¢4 G30C3950 
160 AC#111132°089 A G30C3960 
17° AZAC/CITR G30C3970 
18> Ba162160944 63003980 
19° C2#17+20937 G30C3990 
2Ce 0=soe02@273 G39C4000 
2le Es0*°0C0033 : G3DC4010 
22° Gisies25e623932E"10 G30C4020 
4 23° AS#e484815681E°5 G30C4030 
. 24e 161 CANTIANLE G30C4040 
; 256 REAC(IINs 601) CMCo CMMs PZCePZMeISRoXZ9 YZ G30C4050 
26° 601 FORMAT(F 4eCeF6egeF4eQeFéeasliqreFicec) G3DC4060 
27° WRITECIIOUTZE07) CMDsChM,FZD,F2Ms ISR» XZ, YZ G3CC4070 
e8e 6¢7 FORMAT(C' CMa!',F4e0,!' DEC',»FG0e5,' MINey PZe',F4e0,' O¢G',F5e3,! MING3DC4080 
296 fa ISRetel6e" xXZetaFGeOets YZe'eF 60) G30C4090 
3Ce xZsX2*10CCe G30C4100 
Sle YZs¥Z#10CCe G3c0c4110 
32° FZePZN4PZM/ECs G3DC4120 
33° CMsCMD4CMM/6Ce G30C4130 
B46 RCV aeCheCTR G3DC4140 
35. RPZ=sPZ*DTR G30C4150 
366 IF( ISR) 50645 g30C4160 
37° 5 ReFLAAT(1SRe4)/FLOAT(ISR) G30C4470 
38s Ge Te 7 G30C4180 
39° 6 Rule G30C4190 
4Ce 7 CONTINUE G30C4200 
44e ELOsAeRPZ@BHSIN( ae #RPZ)+CHSIN( 4e#RPZ) @D#SIN (60 *RPZ) G30C4210 
420 1 +E*S TN (8¢#RFZ) G3pC4220 
43° ELBsELB8eR G3C0C4230 
4he RM aAD 566005 eChS(2eeRPZ)+10e2eCOS(4ewRPZ) G3C0C4240 
456 RMSRMeR*eRTC G30C4250 
466 RETURN G30C4260 
476 102 CBNTINLE G30C4270 
4Be IFLGse G3DC4280 
436 Xex#1000s G30C4290 
Soe ys¥*1000° G30C4300 
Sie XP exXeXZ 5 G30C4310 
Se6 yYPsyeyZ G30C4320 
53° Py sRPZ+YP/RM G30C4330 
54. 10 CONTINUE G630C4340 
55° ELNa (APL MBaSIN(Zeaps sCwSIN(4ewpt el aSIN (6eeP) G30C4350 
566 1 *E*SIN(Be#P4))*R G30C4360 
57* CYFARCRO*R/SGRI( (Le wE2e(SIN(F1)) #42) #83) G3DC4370 
5Re YNwELNOELB G30C4380 


i 5S CPAS(YFeYN)/DY G30C4390 


} 





| 
| 318 
B 6Ce P4"F140PN | 
a 61+ IFLGIFLG=1 G3DC4400 | 
{| 2° IF(IFLG) 11011010 G3DC4410 
at 63° 41 C@NTINLE G30C4420 
| ars. 63004430 
@Se Fy IS \FW THE TABULAR G3DC4440 
eé. . ULAR LATITUDE ote ao | 
| ‘ Ta(LesE2e(SIN(P1) )ee G30C4460 {3 
se: ¢ be ay rhe ea i Bapgee? 
: "WE ARE AB CALCULATING G Fhe 2 FaCTAR 30C4480 
f ie CELP=((SG1)##2*C/36000) #CTR G30C4500 
t 7e° PLePt«CELP 630C4510 
i} The Te({esE2e(SIN(P1)) #92) G30C4530 
75¢ RN#AA/SGORT(T) : G3DC4540 
76° DELL1eSIN(SG4/RN)/COS(Py) G30C4550 
77° CELLR#ARSIN(CELL1) ’ G30C4560 
786 RLBNGs DELLR+RCM G30C4570 
73° RLONGS*RLBNG G3DC4580 
8Ce RLAT#PL G3DC4590 
| 81° Xsx/10008¢ G30C4600 
a 82° YaY/1000¢ G3DC4610 
| 83° RETURN G30C4e20 
E |! Bue 15 CELLR*RCV+RLENG 63004630 
85-6 CELLI#SIN(CELLR? G320C4640 
i! &6e Fi sRLAT G3DC4650 
87° FasP} G30C4660 
ae T#ieeE2H(SIN(PZ) ewe G3DC4670 
| ae aphee tO mp 
Ge SGq,=#RN*ARSIN(COS(P2) #0 690 
E 1° ce 85 Is193 Renee G2DC4700 
; a Pde el dele, ea Sh 
| s CELPs((SG1)#eo"C/ * 0 4 
: | She ee Peeeiseee? 2*C/3600¢) #DTR pele 
e | eH PyeP2 Gac¥740 
‘ - ELNs(A*Py*BaSIN(200P4 )4C#SIN( 4O*P]) = : G30C4750 
| 97° 1 a satnieePiaiek L)*CHSIN( 4O*Py) D#SIN( Ge*Py) 6a0C4760 
| GR YsELNoELO4Y2 G30C4770 
e | Po SGeR*SG1 G3DC4780 
| aCe Ta(tewE2e(SIN( Pt) ) #2) G3DC4790 
101° XFaeSC+SGe#ge ee G30C4800 
| 102° x8XP4XZ ST ecaseere er G30C4810 
103° X*X/1000* G3DC4820 
| pons YsY/100C* G30C4830 
4 105° RETURN G30C4k40 
G3DC4850 


106° END 
G3C0C4860 
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EXTERNAL SUBPREGRAMS REGUIREDS 


Ft101 Fs1ice Ft103 F3104 F106 F108 SASIN 
SBCCREAC SECChRIT 9CBS STOCATA SSETUPN 9SIN 9SQRT 
9TAN 


hIGHEST ERROR SEVERITY: O (NB ERRORS) 


DEC REX 

WORDS WORDS 

GENERATEC C8CE% 457 co1ics 
CONSTANTS$ 23 00017 

LOCAL VARIABLES}; 47 cooeF 
TEMPS! 11 cocos 

eeuece erveea 


TOTAL FROGRAM; $38 C0e1A 








1e SUBROUTINE CISAZ( ALATsALON,BLAT,/BLON,IFRD,AZMTH,BAKAZ,DISKM,DISOG) | 


26 C TRIS SUBROLTINE CALCULATES TRE DISTANC FROM APBINT A Te A POINT B 
Ze Cc AN ALSB THE AZIMUTH CLACKhISE FOR TRE NORTH FROM A Te B 
4e c ALAT ANC ALON ARE THE C@BROINETS OF POIAT A 
Se € HLAT ANC BLON ARE THE C8@RDINETS OF POINT B 
6° Cc REMEMBERS $383 
Je Cc TRE POSITION COORDINATES 
Re C ~* IS SOUTH AND KEST ANC * IS A@RTH AND EAST } 
Se es' 
10. C TRAD 1s AN BFyeN TE FNPUT EITKER DEGREES BR RADIANS FOR THE 
} 11e (a Ip IRAC = C STUFF IN CGERES 3 1 IF IN RADIANS ‘ i 
4 12° Cc TRIS FREGRAM CaMe FAR CAaLTEChKy )» AND A WAS REVISED FOR THE MIT ] 
4 136 ( 1B¥1194 CA@MPLTER BY wOhN FAYRBORN, IT KEN WAS REVISED FOR THE | 
4 14s Cc TH IBw 360 AT MIT BY VACK WOLFE « NOW IT HAS BEEN REVISED FOR THE 
: 15° C SIGMA °7 COMPLTER aT WABCS hOLE (BY VACK WOLFE) THE INEFFICIENCY j 
166 Cc @F STARAGE ALLACATION IS DUE T8 THE MOST RECENT PREGRAMMERS j 
i7?e C (SACK WOLFE) LAZINES ANC NEGLECT T@ CLEAN UP ALLL THe WUNK | 
18¢ CIMENSTSN THQ) sPHI(2) sXCEG(2)sCISTIAsaZ(2)sAZINVI2) 
19° TAN( THETA) @SIN( THETA) /COS( THETA) { 
20° [1 j 
21° Kee : 
22° TH(L) sALAT 
23° Th( 2) ®BLAT 
24e PrhI(1)sAL6N 
25° FrI (2) aBLAN 
26° IF(IFRO) 36431230 
27° 31 C8 32 «ysle2 
28e Thi) ®Th( 9) /57 02957795 i 


23° 32 FRI(c) sFHI(¥)/5702957995 
30+ 30 CONTINUE 


31° TRG =» ATAN( 699328 #TAN(TH(K))) f 

32. Coe SIN(PHI(K)) 0090 f 

33° —E s sCOS(PRI(K)) 0100 

346 Fa *COS(TRKG ) 0110 I 
35-6 As FRE 0120 
ch 36-6 EB = CAas(TRG )#D 0130 

376 C a SIN(TKG ) 0140 

386 GC s @CHE 0150 

39° kr # C#C 0160 

40 ThG s ATAN(¢99928 «#TAN(TH(I))) 

4 he Ci = SIN(PRI(T)) 0240 ‘ 

426 El = -CS8S(PRI(I)) 0250 

43° Fis *C3S(THG ) 0260 

44e Ci ® SIN(TKG ) 0270 

45e AL * FL¥EL 0280 

466 B1 = #Fi*01 0290 i 

476 Gi = #Ci#E1 0300 

4&e FL © C1#D1 0310 

496 SC * AWAY + B¥By + CHCy 0320 

SCe SD = SGRT(( (A wAL) #42 + (BeB1) #82 *(CoC1L)#e2)#((A tal #¥2 + (B81) 0330 

Sie 1e#2 + (C#C1)9#2)/4¢0) : 0340 

52° XCEG (1) * ATAN(SD/SC) #87°2957755 0350 

53° IF (SC) le 2s 2 0360 

S4e 1 xCEG (1) = XDEG(1) + 180¢0C 0370 

55° 2 SS * ((ALeC) #2 + (ByrE) eee + C1*¥#2 © 200) 0380 

56° SC ® ((ALG) #82 + (Blew) wee + (Clef) ##202 00) 0390 

57° AZ(1) =» ATAN(SS/SC)#5702957795 0400 

58° IF (SS) 34405 0410 


59° 3 IF (SC) 60 75 7 0420 
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eCe 
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62° 
63° 
64s 
6Se 
66° 
678 
68 
69° 
7Ce 
71° 
Jee 
73° 
74° 
75° 
7ée 
77. 
786 
796 
&Ce 
Bie 
&2e 
83 
R4e 
85° 
B6¢ 
87° 
RRe 
&Se 
30¢ 
Sie 
926 
93° 
Sue 
95« 
S66 
97° 
98 
99° 
10C°¢ 
1o1°¢ 
102. 
103° 
104. 
105° 
106° 
107¢ 
108» 
109° 
110. 
lite 
yi2e 
1i3e 
1146 
1156 
116° 
117° 
118° 
119¢ 
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Fav 


13 
16 


17 
15 


18 
14 


301 


25 


Cc 


A eae tee rennet an Atanepe th pseesataesimnaeenemeie anmmameinnes nmaememmemas 15” 


322 


AZ(1) = AZ(T) # 18000 
G8 T6 4 
AZ(1) = AZ(I) + 36000 
G8 T6 4 
IF (SC) 8s 4s & 
AZ(1) = AZ(I) + 18000 
SS * (CAeDL) #82 + (BeELI##2 + C#w2 © 200} 
SC = ((AeG1)we2 + (Behl) one? + (C#F1) xe2e2e0) 
AZINV(T) ® ATAN(SS/SC) #67¢2957795 
IF (SS) 134 14. 15 
IF (SC) 169 17s 17 
AZINV(I) & AZINVO(I) + 18090 
G8 T6 44 
AZINV(IT) & AZINV(T) + 36090 
Gé Té6 14 
IF (SC) 189 14o 14 
AZINV(T) ® AZINV(I) + 18690 
EL 3 6072267C02/0993277329E+03 
EC « 0672267C02E*02 
Et = LeQ+ EL 
AL = TAN(TR(I1))7( EqaTAN(TR(K))) + EC #SORT((E1+(TANCTR (15)) 
L8*O)/ (EL + CTANCTH(K)) D#¥2)) 
CL = PKIGI) © PRICK) 
At2 = ATAN(SIN(DL)/( (AL #C8S(0L))*#SIN(TH(K)))) 
EB = ELe((COS(THIK)) *CAS(A{2)) ##2 +(SIN(TH(K)) #2) 
EG2 = ES#*e 
E83 = EGax3 
CB = 100+ EA/4eOm SeOHESE/E4eQ+ Fe O¥EG3/25600 
C2 wm =E8/8eC+ ESZ/32eO*1E*O#EB3/1024¢0 
C4 ® eEB2/25meC% 3204E83/102420 
The = Th(K) #200 
TR2] & TH(I)*200 
VIisEXP(+2302589 E+01*(e3580544 E+O01"( 0732368 F-3)*CAS(TH2) 
1 +4(964175 Erb) wCBS(2eOeThe) &(¢7E"9)eCOS(SeQaTH2) )) 
V2 ® EXF(*23¢259 E404#(*389544 E+o1%(*732368 E93) *C8S(THal) 
1 +(*6175E"6)*#C3S(e2eQeThely e(e7E= 9)#CES¢3eQ#THel))) 
ZL ® Viel LeOe = EC) *SINGTHIK)) 
Zé = v2e(1eo" Ec) #SIN(TH(IT)) 
x2 8s Vo*C8S(TH(1))*CA8S(CL) 
Y2 = V2eCOS(TH( LT) I #syN(CL) 
LL = ATANCTAN(TH(K))Z(SGRT(1e04E9) #C8S(A12) 
L2 = ATAN(CVL*SIN(TH(K)) + (100% E8)*(Ze02) 
1X2sCBS(alé) e« VERGINGTH(REDREINCAIOID) 
B86 = V{*SQRT (16 OrEL* (COS (TH(K)) *COS(A12) )#*2)7 (1 90%ED) 
DIST(Y) sBBe(Chw(U2=UL +CE#(SIN(ZeO#U2) wSIN(2eO#UL)) +C4#(SIN(4e0* 
LEZ)" SIN(4eC#U1)) } 
CIST(I) = ABS(CIST(T)) 
TEST = CIST(I) = 111¢0*"xXCEG(I) 
IF (ABS(TEST)#100¢C) 2543014301 
L2 = Ue + ©314159265E-o1 
CIST( 7) 2B8*(COe(U2eUL  +C2e(SIN(2e0#L2) ree? +C4e(SIN( 4.0% 
1L2)" SIN(4eQelt)) ) 
CONTINUE 
CISOG*xXcEG(Y) 
CISKM=CIST(T) 
AZMTRaAZ( I) 
BAKAZsAZINV(]) 


) ) 
1)7(SQRT(1+O+E8)* ( 
) 


BakaZ 1S [S ThE aZZIMUTi4 FROM Pertt Bre A 


RETURN 
END 
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L@CAL SLEPROGRAMS DEFINECS 





OCOCE TAN 


INTRINSIC SUBPROGRAMS USED$ iG 
ABS ATAN ces EXP SIN SGRT 


EXTERNAL SUBPREGRAMS REGUIREDS 
SATANL SC6S SEXP SSETLFN ISETUPL : SSIN 9SGRT 


MIGHEST ERROR SEVERITY: O (NO ERRORS) 


CEC KEX 

wORCS WARDS 

GENERATED C8CE: 651 cozaB 
CONSTANTS? —-_28 cooi1c 

LOCAL VARIABLES: 59 COO3B 
TEMPS; 2 coc14 


eanee serena J 


TOTAL FREGRAM: 758 COEF6 
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he 
Se 
be 
Je 
Re 
Qe 
1Ce 
11. 
12° 
13¢ 


NAND.AAAN 











FUNCTIAN CMTBR (KD, AM) 
FUNCTION TA CANVERT DEGREES ANC MINUTES TE RADIANS 


NOTE! IF BATH KD AND AM DB ABT HAVE SAME SIGN AND 
KD ~S NOT Ca TREN RADJAKS WILL BE WRONG 


CrT6R @ KC 

A ® DVTOR + (AM/60¢0) 
CVMTOBR & A * 10745329Ee2 
RETURA 

ENC 


SRaR ree ren mcr CmeNP rarsieem mtn ayn Manny 


£19090 e2 sAVHDONS Tiel 


£0009 E SSdA3L 

20909 2 sS348vIsVvA Wv504 
20909 2 sSiNviSN@5 
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: 1° SLERALTINE CNaV(DLAT*KSNsDLONs KWESRLAT#RLONGs KK) 
{ 2° C VERSION 3 FEB 1974, CORRECT KEYFLNCK ERROR 
$e © SLERALTINE CNAV, CANVERTS ANBTATEC CECIMAL CEGREES TA RADIANS 
4e S IF KKs0 a 
S¢ : CONVERTS RACIANS TS ANSTATEC DECIMAL DEGREES 3 
660 IF KKeel . 7 
7° C : 
Re C ANSTATIBN IS NygSo We OR Ee F 
Ge C 5 
1Ce CEGKA © 1°745929E"2 
lle RACEG = 57+29578 
lee , whSLEN 
13° wS#1KS 
l4e wEZ1RE 
15° wWwelkh 
166 IF (KK) 100*5Cs50 
17° C CBNVERT CECIMAL DEGREES TO RACTANS 
18. 5C KLATsCLAT#CEGRA 
19° RLANGsSCLAN*DEGRA 
2Ce IF (KSNeGS)75470,75 
ele C SS8LTF LATITYLDE 
Pee 70 KLATSeRLAT 
eRe 75 ITF CKhE* GW) 85280285 
ete C wEST LONGITLDE 
2Se 8C kKLANGs #RLBNG 
C40 85 COANTIANLE 
e7e RETURN 
ake C CONVERT RACIANS T@ ANGTATEC CECIMAL DEGREES 
cSe 1CC =ALAT® ABS(RLAT) 
3Ce ALTINGs ABS(RLONG) 
31e CLAT=® ALAT#*RACEG 
Jee CLAN = ALONG*RACEG 
33° IF (RLAT) 43024320432 
346 43C KSN28uS 
35-6 GB Te 435 
366 43e KKSNs UN 
37° 435 “IF (RLBNG)44Cs 4420442 
386 44C SWE SUW 
Ge G6 TA 445 
4Ce* : 442 ‘KWESJE 
41e 445 RETURN 


4e50e EKO 
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4 ee C CY2h TAKes CONSECUTIVE DAYS AND The YEAR AND CHANGES THeM INTE DAYS SMENTHES | 
3e CIMENSION MYDAY(43) ’ ¢ 
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és ce 15 151212 i 
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18° 16 ves] 
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2Ce Ge Te 17 
21° 15 CONTINLE 
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24e ICAYs6 
256 17 C6 18 [#313 
266 MYDAY(1) eMYCAY(1) =LEAP 
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le te SUBRBUTINE ENDLTCICNTsCLATOsCLABOsOLSLEscLORisloLsILiszlAr) 
ee Cc VERSION OF 10 MAY 72 | 
3e 6LTFLT 'ENCLT OF 10 MAY 7e ' i 
4e BLTPLT CLAT@,CLARGsOLELE,CLARI q 
Se Ceeeaae ' 
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Se TIN#®105 
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2Ce ( etevces 
21° 1cc CEONTINLE 
22e ALATGPSCLATS*90+ 2 LATBPSALATOP 
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e4e ALO@LE®CLO@LE*i18Ce ¢ LA@LE*ALBLE 
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386 104 CONTINLE 
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Le SUBRALTINE EVIL (UiONTs te TBACakKDAsKMO,KYRsKHM) 
2e C SLBROELTINE EVIL, CHECKS STATLS INDICATOR, WRITES ERROR MESSAGES, 
3e c ANC RETURNS INOICATOR FBR BAD READS(I BAD) 
ue C YBAC8Os ALL AK 

Se cc 

6e cc 
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166 cs PALSE 132 
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2ee G6 T@ 110 
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30° 11¢ RETURN 
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SUPRALTINE EXTO (Crys CXFa CY» CYPs EXs BYs IND) 


IND = ¢ 

coe COX © CxXP)#e2) + C(CY © CrP) eee) 
A ® ((CX © BXyeea) + ((CY = EY) &#2) 

RB = ((CKP © BX)#ec) + ((CYF © BY) ##2) 
IF (A * C) Ce ede 10 

IND = 1 

RETURA 

Ip (B = DC) Sos 30 25 

IRE ws24 

RETURN 
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1. SLBRALTINE FYND(LIMCA,LIMMB,LIMYR,LIVMEM, 

q es 1 TNDAsIRMAaINYRes INHMs INCIC) 

E | 3e Cc 

q ye C INCICATES wHETHER INPUT DATE <,#,> LIMIT DATE 

a Se C NO CAMMBR REGCLIRED i 
| tbe C LIMCA,LIMMB,LIMYR,LIMEM ARE LIMIT CAY,MBATH ,YFAR, TIME 

| 7° C INCAsTNMAgINYRZ INEM ARE INPUT DAY, MENTE, YEARS TIME | @ 
Ke C INfIC 1S INDICATBR 
; Ge Cc j 
q ice C IF LIMYR # 9%, NO CBHMPARISHUN IS MACE 

j 11. C IF LIMM§ = 9S, ONLY YEARS ARE COMFARED 

F i2s C, IF LIMCA « 99s BNLY YEARS ANC MOATFS ARE CerPaRED 
q Lae C IF LIMHM # 96999, CATES ARE COMPAREC BUT TIMES ARE IGNBREM 
3 14. C NGTE*s ALL FOUR LIMITS SHALLO Br GIVEN 
4 156 C 
166 C INCICATEBR SETTINGS: 
: 176 Cc INCIC = «1 MEANS INPUT CATE IS BEFORE LIMIT DATE 

1&. C INOIC = QO MEANS JNPUT Cate 18 EGVAL TH LIMIT DATE 
19° Cc INCIC « +1 MEANS INPUT CATE IS AFTER LIMIT DATE 

eCe C 
4 é1° IF(LIMYR#$9)10023¢00410C 
q 2e6 ICC) OLFCINYReLIMYR)1994,101,2C1 
7 23° 101 IF (LIMMBeS9)10222002102 
. e4e ice. OTF CINM AOL IMMA) 1990103024C1 
PY O56 103 IF (LIMCA@99)104,200,104 
. Pbs 104 IF CINCA*LIMDA) 19941050201 
ave 105 IF(LIMEM"9999)1¢6s2001C6 
a 22° 1Ce IFC INEMSLIMAM)1992200e2C1 
| ade 195 INCIC = #4 
3Ce RETURN 
4 31° 2cc INDIC = 0 
32° RETLRA 

j 336 201 INDIC = +4 
P| 34. 3CC RETURN 

F | aSe ENC 
e | 
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le SUERA@LTINE FLO2(KK,] TAPEsRLATsRLONG, REG) 

2e C VERSION € MAY 1974 

3e C TA IMPLEMENT MODIFICATIGNS BY FOLIMSBEE BF 24 APRIL 73 
4e C 

Be C SLEROLTINE FLO2, CALCLLATES REGIGNAL FREEWAIR 

6e € ANOMALIES FROM SPRERICAL HARMONIC COEF ICIENTS 
Je C ENTERED AT RUN TIME 

&e Cc 

Se Cc 

10° CIMENSIB6N S(a5,25)2C(205925) BAR (05905) ,F (25025) 4SP (05) 
lie CIMENSTON CP(25)eFM(25)eFN(25) 

1Z° c 

13° C ssh(4) UP T8 LIST INTERMECIATE VALUES 

14e Cc ssw(5) UP TO LIST BNsBYV 

156 Cc 

166 C ve CRKANGe BRCER BF COEFFICIENTS REPLACE DIMENSION 
17. C STATEMENTS BY ORDER + 4, AND SET NOIMSORDER + 4 
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Ze 1RLAENG»KCDAsKGMB,KGYR,KGrM, EBC) 
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Se CRANGEC 17 JLKE 19714 BY CM WEBCING TO ANNOTATE SBS MAG 
6<« - C 
Je CIMENSION PLT(7) 
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90 11eLT#108 
1Ce 14 CALL ENCIB 
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196 RETURN 
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39° RETURN 
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LSES SLBROLTINES ENDIGICLMMY), EVIL» OMTOR, STAT» ISW 
1Sw aNC STAT ASSUMED INITIALIZED IN MAIN PROGRAM 
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IF (1SW(15) 13014013 
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CALL ENDIS 
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SLERALTINE GETG(ITAPEsNXaNY¥sQZgNWeCATAX,CATAY,DOATAZ,DATAW, 
1 RLAT,RLONGs KGCAsKGMB,KGYRsKCHM, IEGC) 
VERSIAN 2S VuLY 754 TO CORRECT FREAK INITIALIZATION PROBLEM 
TRAT 8CCLURS BALY WHEN REACING FROM CARDS 
VERSION 4S SEPT 19742 FAR 67 GRAVITY FORMULA 
VERSION BF 7 AUGUST 1973, START CONVERSIAN TE 1967 G FERMULA 

GETG VERSI@N FEE 15 72 
weewee ChANGED INPLY FORMAT FOR BaCKwaRC CADE MaNAGe PROBLEM 
ceuwee MECIF FAR NEW ABSTG FORMAT FANDLIAG 

GETG VERSION CEC 30 » 71 

GETG VERSION NSV 19 » 1971 

INFLT e« NEW GSUP FARMAT # 

+ 3 KEYS 3 LTKEY » LGKEY » IAKEY 


MODIF 8N NOV 42,1974 BY MONGET weMe TO INCLUDE 3 
© USE BF DATA LOCATION TABLE 
« USE BF LABEL TAPES 
MeO ALG 146 1971 BY FOLINSBEE TO CORRECT ERROR BN CALLING ARGS OF GALK 
VERSION OF GUNE 29,7, COES NOT WRITE ESF BNTS BUTPUT DEVICE 
MODIFIED vUNE 2g TO REAC( BR WRITE) BLOCKED DATA BY A FBLINSBEE 
VERSION 6F APRIL 16 TO SPTIGNALLY SUPRESS REWIND Pr ITAPE AND JTAPE 


wWITr COMPLETE ARGUMENT LIST, IS6RC MOVED TE CAME 
AFTER CATE 


SUBROLTINE GETG, FAR GSLM FARMATTEC DATA 


VERSTON WITH CESIGNATION OF INPLT MAGNETIC TAPES 
BY USE O8F SLBROUTINE MOLAT 


SSW(-2@) LF Ta LIST CATE ICENTIFICATION 
ssh(27) UP te sUPRESS REWIND BF TAPES AT START OF JOB 
#1 SUFRESS REWIND 6F [TAFE 
SSh(og) * 4 = TG READ ANC TEST FOR SELECTED SOURCE CBDE 
NUMBERS 16 CE PROCESSED 
s 2 = TO READ ANC TEST FOR SELECTED SOURCE Cede 
NUMBERS T8 BE SKIPPEC 


SSW(39) UF FOR INPUT CATA 6N CARCS 
ssw(4c) UP ze PRACESS WyTH BELNDS LSING CLT 
# 0 © PROCESS WITREUT BEUNDS 
® 4 «= PReCESS WITk BBLNES USING Tre DATA LOCATION TABLE 
$sw(60) UP 78 PROCESS BNLY DATA WITH JFFCe4, aBSyRaCTER AUTPUT 
SSW(64) VP T8 REPLACE FA,BG,ELEVsLAT,LONG WITH AvERAGED vALUES 


USES ENDIG(OUMMY), EVIL, STATs ISW 
ASSUME [Sh AND STAT INITIALIZED IN MAIN PROGRAM 


CIMENSIGON ICTIN( 509) sIBK (ec), 1TK( 20) s IDENS (20) s IDESC( 47420) 
CIMENSION ICTOT(E0) ,JBK(2C),eTK(20),.DENS (20), uDESC(17,20) 
EGLIVALENCE (CLAMI,DLAB6), (OL AMA,OLATG), (CLAMI,DLALE), 

« (OLErA,OLBRT) 

CIMENSTON PLT(29)51A(35) » TAFMT (9) s LASH( 35), 1SRC( 46) 

CATA ITERIZ'ELTPI/ 

CATA IFLAG/C/ 


I 


GIN80040 
GIN@0050 
GING0060 
GIN60070 
GIN8CO80 


GIN80100 
G1N60110 


GyN80130 
GIN80140 
GIN80150 


GIN8Q240 


GIN80190 


GyN80210 


GIN80270 
GIN6O280 
GyNEO280 
GIN60300 
GIN80310 
GIN89320 
GyN80330 








6Ce 
61° 
62° 
63° 
b4e 
65° 
6650 
67° 
68 
69e 
7Ce 
7ie 
72e 
73e 
74e 
75° 
760 
77° 
786 
796 
8Ce 
Sle 
82 
&3¢ 
B4e 
8Se« 
860 
B76 
&Be 
&9- 
9Ce 
Sie 
92° 
93° 
94e 
95° 
960 
37° 
98e 
996 
10Ce 
1016 
102° 
103-6 
104¢ 
105° 
106¢ 
107° 
108° 
109° 
11Ce 
1iie 
112+ 
113- 
114° 
1156 
1166 
117° 
118+ 
119-6 


a a 
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IF (IFLAGeNE eC )GBTBSO 
IFLAG#1 


Cc 
C essase GETG INITIALISATION LOGIC 


TIN®105 

IIQLT = 1C8 
IE6Cs0 
ICISC = 100 

KI #1 

K@ s «2 

NEF ae |} 

IFILE 3 4 s 


CEGRA = 1°745329E%2 
RADEG*#57+29578 


6LTPLT ' GETG VERSIAN 2S ,ULY 75 FER 67 G FORMULA! 
IF(ISW(4Q) eNEoQ)CALL ENTCLT(¥,DLATO,CLABB,DLOLE,DLERY) 
* 3 CALL SETSKP(INDICA) & JOLT#0 
* 3 NEFst 3 =IFILEsyget 3 SOLTPUT NEFSIFILE 
NZERB 809 
KGCASaNZERG 
KGM@BsNZERO 
KGYR@sNZERB 
KGEM6 sNZER6 
NRECT » N@e OF RECORDS NOW WRITTEN BN PRESENT BUTPUT TAPE 
NEF = NO» OF FILE NQ@W BEING PROCESSED 
NRECT = NZERO 
IREC1 «#9 1 


IF (ISW(40) eNE*Q) G8TA4410 
IF (ISW(30) 404,404, 1410 
404 yal 
4OS READ (1INs 466) IDTIN( Qs IBkK( Qe ITK(C)s TCENS(Y)s 
1 (IDESC (Ks J) sKeta17) 
406 FORMAT (AS sAXeALe1Xe lL 9tXeT3017A4) 
IF(IOTINGUPeNESITERT) Yayeis GA TE 405 


an 


NEF a4 
IFILEsy © 1 
BUTPUT NEFsIFILE 
¢ 
C eeenee CKECK SSw(29) T® SEE IF SOURCE C@CE NUMBERS 
C evcnne ARE T@ BE READ FOR DATA SELECTION 
C 


IF (ISW(29) oF Geo) GETH10 
REAC( TINS 9CC) ISRC 
gcoc F@RMAT(1615) 
IF(ISW(29) eEGo yD WRITE(IIOLTs912)ISRC 3 G6T81410 
wRITE(116UT2913) SRC 
913 FARMAT(1HOs1CX,'SKIPPED SOURCE CODES = ',1615) 
912 FORMAT(1HOs10X,'SELECTEC SOURCE CO8CES » ',1615) 
C 


Cc eeenee 


Cc 
141 IFCISW(30) 11021022414 
1C IF (1SW(40) eEG-0)GeTe810 
REAC(ICISCs4CeE)ICTIN(A),TBK(L)eTTK(L), IDENS(1), 


Se eee oe ee sd 


GINBO329 


GINSO410 


GIN90430 


GINB0470 
GINGO480 
GIN8O490 
GIN8Q500 
GIN6C510 
GIN6¢9520 
GIN80O530 
GIN80S40 - 
GIN89550 
GIN@0560 


GIN@O580 
GIN6C5390 
GINBO600 
GIN80610 
GIN80620 
GIN80630 
GIN60640 
GIN80650 


$ 


f 


‘ 








nan ih Ras ED 
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12C+ * (IpESC(Ke1)sKats17) 
121° Bic IFCICTIN(L) eEGe TERI) IESCe1 5 RETURN 
122° CALL MAUNTCITAPESIDTIN(G)) GIN80770 
123° BUTFLY "INPUT TAPE MBUNTEC ! 
i2%e WRITE (T16LT21413) IDTIN(1)eTek(L)eITK(1)eIDENS (400 G1N80780 i i 
125° 1 (IDESC(Ks 4) 2K 84017) GIN8Q790 
126° 141g FORMAT (1X eAds gXsAtodXelgo1Xe 130474) GIN89800 4 
127° BUTPLT 'eucwcccennna! 
128° IF (ISW(27) eE&G04)GATA2414 ; | 
1296 FEWING TAPE GIN8O820 
130° 2414 CBNTINLE GIN80830 
lsie c 
132° C esenee GETG INPUT LOGIC 
133° c 
134° Sc CALL ENOI6 e GIN8O950 
135- IF(ISwW(30)eEGe1) Ge TE 100 GIN80960 
136° IF(ISh(40)eNE*O) G8 TE 700 
137° 52 READ(JTAPEs 11) IREC1sISORCsKGCDA,KGMO,KGYR,KGHM, 
138-6 4  DLATsDLONG,ELEV,K977,6ESG, 1DEP,FA,BG,1C,IELC,1GC, 
1396 @ RFA,IREGC,IFFC, LA, IFBCsLTKEY,LGKEY, IAKEY 
14C° cS T8 101 GINS1020 
1416 100. = CONTINUE '  GINB1030 
1426 READ( LIN 0469 )IRECLsTSORCsKGCA,KEMB,KCYR,KGHM, 
143° 1 DLATsOLO@NGsELEVsK9772 GBESGe TDEPs» FAs BGs TCeIELCe 1GCe 
1446 ce  RFA,IREGCsIFFC, IA, IFEC+LTKEYsLGKEY, LAKEY 
1456 104 CONTINUE GIN61090 
1468 CALL STAT(T) GIN@1100 
147° 710 CONTINUE 
1486 CALL EVIL(II@LT, Is 1 BACe KGOABs KEMEBs KGYRE » KGHME ) GIN84110 
1496 fF (GAO) Sco» Sgs 575 GIN84420 
isc¢ 53 IF (IREC1*2)600,70600 
1516 60C IFC IREC1©1)50,61050 
52 C 
153 C CONVERSION OF 19309 INTERNATIONAL GRAVITY FARMULA TS THAT 8F 
154+ C TRE 1967 INTERNATIONAL GRAVITY FORMULA 
155° ¢ 
156° 61¢ CANTINLE 
157° RLAT # DLAT*DEGRA 
158. CEB3e2al( 1306" (SIN(ABS(RLAT))##2)) 
159° C TB AVOID PLATTING INVALIC VALUES 
160-6 IF (FAsEGe999eANDoNXeEC 26) GB TA 50 
161° FAsFASCG 
162° IF (BGeEGe999eANDeNXeEGe7) GE TE GO 
163+ 8G 28G+0G 
164s G8 Té 76 
165° 575 IF (NEF @ IFILE) S764 &77s 577 GIN81240 
166° 576 NEF = NEF + 4 GIN@61250 
167° IF (1SW(40) *EGeC) GBTE820 
1686 REAC(101S8C,4C6) LOTIN(NEF ) » TBK(NEF ) , 1 TK(NEF), LOENS(NEF Dy 
169° » (ICESC(KaNEF ) sk 21017) 
17¢* 2c CALL MOUNT(ITAPE,ICTIN(NEF)) 
171° BUTFLT 'IAPUT rAPE M@UNTEC! 
172¢ WRITE ¢TTOUT2 4443) IDTIN(NEF ys TBK (NEF ) a TTK (NEF )» IDENS(NEF )» GIN61270 
173° 1 (IDESC(K,NEF),K#4,47) GIN6 1280 
174° ALTFPLT loewmeancnce! 
475° REWIND [TAPE GINO1290 
176° G8 T68 50 GIN81300 
1776 c ENO €F INPUT DaTA, REGLIFED NO. OF FILES NOW PROCESSED GIN@4310 
1786 577 [€80"1 45 RETURN 


1796 7C IFC 1SwW622)973,73,71 G1N61390 








‘ Misesnemaraais 


180° 
181° 
182. 
183° 
1846 
185° 
186¢ 
1876 
188+ 
1896 
19Ce 
191° 
192° 
133° 
1946 
195° 
1966 
197.6 
198+ 
1996 
2006 
201° 
20ee 
203° 
204s 
205e 
2066 
207° 
208-6 
ec9e 
210° 
eile 
e1e< 
213° 
214. 
2156 
216s 
217° 
218 
219° 
220° 
e2ie 
222° 
223° 
Z24e 
225° 
226° 
227° 
228° 
229° 
23Ce 
231° 
232° 
233° 
234° 
235° 
236° 
237° 
238° 
239 
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71. WRITE CII@LT272)KGCAsKGMOsKGYRaKGEM GIN@14 

72 FORMAT( 'DATEs's313015) AIRASL 
c é 
€ eeeeee 

75 IF CISW(29) *EGee)G8T8173¢ 

IF (ISW(29) *EGe2)GaTA170C 

Cc 
Glceaaee PROCESS ONLY SELECTED SOURCE CB8DES 
C 


C81650.31216 

IF (ISRC(W) eEG eC) GATE50 

IF (ISO@RCeISRC(U))16502173C21650 
165C C8NTINLE 

C8TAS50 $ 
C 


C wencee IGNSRE SELECTED s6URCE C6DES 


C 
17cc C81710081216 
IF (ISRC(J) eEGeC)G8TA1730 
IF (ISORCeISRC(U) 1171005041710 
171¢ CE8NTINLE 
Cc 


C weeccce 


C 
173¢ RLATSDLAT#CEGRA 
RLONG = DLONG*DEGRA 
CEPT = ICEP 
IF (IDEP)78,74,78 
74 -FEIGTsELEV 
GB TA 80 
78 EIGT = eCEFTK 
®C CBNTIALE 
CANVERTING FROq TRE POTSCAm REFe NO@e TO THE IGSNe74 REFe SYSTEM 
NX = 44 T6 FLOT BBSERVEC GRAVITY 
IF(NXeNE11) GS TS 81 
IF(IREC{eEGeo) GB TA 84 
CALL BEG (K977,68SG,GBESsKI) 
GBBSsGBBSe1400 
81 CONTINUE 
BGCeMseG+TC 
PLT(1)sKGKM 
PLT(2)aIS6RC 
PLT(3)sELEV 
PLT(4) aDEPTH 
PLT(5) *HEIGT 
PLT(6)8FA 
PLT(7)8BG 
PLT(8)8TC 
PLT(9) sBGCOM 
PLT(10)8RFA 
PLT(11)*G8BS 
PLT(12) *8hKEIGT/8G 
IF (1SW(6C))418,418, 80C 
80C IF(IFFC#10)50s801+50 


an 


801 CONTINLE GIN61460 
IF (1SW(61))10921094105 

C Set Fas BG, AND ELEV ® AVERAGED VALUES FREM ABSTRACTER BUTPUT G1N61480 

C SET LAT AND LONG TA VALUES AT CENTER 8F GRID AREA GIN81490 

165 CONTINUE GING1500 





240e 
e4ie 
242° 
E43-¢ 
eh4e 
245« 
2460 
2476 
248e 
2490 
250° 
251° 
252° 
253- 
e54e 
255° 
256¢ 
257° 
258e 
2596 
26Ce 
26l1e¢ 
26e° 
263° 
cb64e 
2es° 
266° 
eé7e 
2686 
2eSe 
27Ce 
271° 
272° 
273° 
e74e 
275° 
276° 
277° 
278° 
Z79¢ 
2ade 
281° 
282° 
283° 
ca4e 
Z85° 
e86° 
287° 
288s 
289 
250° 
291° 
es2e 
293° 
e94e 
295¢« 
2966 
297° 
298° 
2996 


802 


803 


10S 
418 


11CC 
12ecc 
x 
11 
469 
C 
C eee 


C 
7006 


g12 


32é 


321 


323 


355 


C6 8C2 YK#1s35 

TASR( CK) ®ISL(IA(UK), 224) 

CALL PKBY( TASH, IAFMTs 35) 
CECBCE (35,803, LAFMTININTs Leds AVRES AVE As AVEBsNOBSy ITM, DIST 
FORMAT (31 2aF Be ie 2F bea lusAtaF ued) 


AGRI #®4e/FLOAT(NINT) & KGRISAGRIZ2 
ITAX®LTKEY*8S 3 I6sLGKEY#180 
ALVsFLBAT(IAx) » SLVeFLAAT(I6) 
CLAT#ALVekGRI -FLEAT( 121) #AGRI 
CLENG®GLVFRGRI+FLOAT( Vel) *AGRI 
RLATsCLAT#DEGRA 
RLA@NGsCLENG*CEGRA 
PLT(13)SAVRE 3 FLT(C14) SAVFA 
FLT(15)sAVBB 3; PLT(16)sN6BS z 
PLT(17)8DIST 
CANTINLE 
CONTINLE 
KGDAG8KGDA 
KGMBGBKGMB 
KGYRB#KGYR 
KGRrAsKGHM 
IF (NX})11002120C+1100 
CATAXePLT(NX) 
CATAYSFLT(NY) 
CATAZ®PLT(NZ) 
CATAWEPLT (NW) 
BUTFUT DATAX 
RETURN 
FORMAT (I ge l4sa too lgs2F Sods F7FeeslgsFbe2r Ss ar bejsF oye 
4 212,FOelalislesSSAlotXel1s213, 12) 
FORMAT (1 ys 4e3l esl es oFS ede F 7eQalageF eas TSaaF6syoF eye 
1 2120F604/10X014912035A491Xe1 49213012) 


cs GETG OLT INPUT LOGIC 


CONTINUE 
IFC ICLT+EGe4)G8TH824 
REaAC({C7SCy812)NMAX 3 JPRE = AMAX 3 KPREA@L 
GLTPLT NMAX 
FORMAT( 16) 
C8NTIAVLE 
READ (ICSC »324,END 2331 )NBLOy ILAST,LASTR,OLMAXsOLMIN 
BUTFLY NBLE,ILAST,LASTR,OLMAX,GLMIN 
FBRMAT(4Xe 162169130 2F 904) 
IF(NOLO*EG*O) TOLT#O 3 GS8T6575 
ALMINeFLEAT(LASTR=9Q) 
ALMAX#ALMING1« 
BLARGeOLMAXeOLMIN 
CLOLFeCLOMA*+OLARG 
CLeEDe=sCLOAMI @BLARG 
IF ( (OLOLP+GE «OBLMAX) eANDe (CLBDEeLE*OLWIN) )C8T8323 
IPRE®ILAST 
ceresee 
CLAUPsCLAMA+1¢ 
CLADO=CLAMI@4>6 
IF C (CL ALP GE eo ALMAX) eANCs (CLACGeLESALMIN) )CBTA324 
IF (ALMAxeL TeDLADb ) GBTE8343 
IPRESILAST 
G8T8322 





GING1510 
GING1520 
GIN61530 


GIN81640 
GIN81650 
GIN81660 
GING1670 
GIN81680 
GIN81690 





324 IF(IPREeEGeNMAX)GO8TA325 
I1BEGsJPRE+1 
G6T8326 
325 IBEGa1 
eseees NINF = INDEX FIRST RECe TO READ 
erence NSLP = INDEX LAST REC. T8 READ 
-326 NFIR # \MAX#(NBLO"1) 
NINFSNFIR*1 BEG 
NSUPENFIR + JLAST 
eseres AVAIC TRYING TA READ RECe WRICH ARE ALREADY PROCESSED 
IF (NINE eL TeNFRE) NINE SNPRE 
NSKIF aN INF*APRE 
CALL SKFREC(ITAPE,NSKIP,' FWD!) 
G8T6 (3302330 3312332233) INDICA 
33c CONTINLE 
NPRESNSUP#1 
ICNREC = NSUFe@NINF #1 4 ICANT © 0 
B21 IFCICANTeLTeICNREC)IOLTs1 3 GOT887C 
ICLT#q 4 G8TE322 ; 
87C READ(ITAPEs11)IREC1,ISORC»KGDA,KGMO,KGYR,KGHM, 
1 CLAT,CLANG,ELEV,K977,6BSGs [DEP FAsBGy TC IELC, GC 
2 RFAsTREGCoIFFCs IAs IFBCaLTKEYsLGKEYs IAKEY 
ICBNT = ICONT+4 
G8T8101 
343 wRITECITIGUTs344) 
344 FORMAT({HOs' TEST AREA ALREADY PROCESSED!,/) 
IEQ@0s1 3 RETURA 
331 wRITE(IIO6LT,345) 
345 FARMAT(yHOs INCSRRECT CLT TABLE » FOUND EGF WHILE PRECESSING 
* RECORCS!) 
IE6O #4 4 RETURN 
333 WRITE(TI6LT23546) 
346 FORMAT (Host INCBRRECT CLT TABLE = FOUND END BF TAPE WHILE 
* SKIPPING RECAROS'»/) 
1E6Ds4 y RETURN 
332 WRITE(116UT2347) 
347 FARMAT(1HCs'ERRSR CONDITION WeILE SKIPPyNG RECARDS',/) 
IEGDsy 3 RETURA 
EKO 


GIN62060 
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\ ; 
hIGHEST ERROR SEVERITY! © (NO ERRBRS) 
CEC HEX 
nORDS WORDS 
GENERATED CS8CE! 1130 CO4GA | a 
CONSTANTS: 19 coc13 | | 
LOCAL VARIABLES! 1046 CO416 4 
TEMPS: 4.8 cocie 
TOTAL FRSGRAM: 2213 CO8A5 
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POP LEON ree NRE AAU 


ee eerie 


Le 
ee 
Ze 
4e 
Se 
be 
Fe 
Re 
De 
106 
ite 
12. 
13e 
14. 
1S 
1660 
17s 
18.6 
19° 
206 
aie 
Pee 
Pr. 
Poe 
PS. 
2b. 
P7- 
PRe 
29. 
30° 
31. 
32s 
$3. 
34e 
We 
34° 
We 
2a. 
39° 
406. 
ble 
u2e 
43 
“4e 
456 
46> 
47e 
4Re 
49e 
50-6 
Sle 
\Pe 
S Qe 
S4e 
aS. 
S566 
7 
SHe 
396 
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210 


ei 
213 
214 
er 


end 


310 
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320 


330 
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SUBROUTINE GETGACITAPEaNXseDATAXe NY, DATAYeNZsDATAZ» 
RTAP,RRAT,RLF Te RRGTe»RLATs RLANGs IEBD) 
NIMENSTAN TRUFIN( 1184) ) 
DIMENSTAN KAVFA( 36) sk AVEL (36) aKPTS( 26) 
DIMENSTAN KCENEIL (36) »KCENFA( 36) 
NIMENS]TAN KCENLAT(34),KCENLBNG( 36) 
NATA INIT/S09N00/ 
IFCINITeNE en) GF TE 200 
INTTIALTZATIAN 
PUTPUT 'SUBRBUTINE GETGA VERSTS6* BF @5 SCT 75! 
TNE? ef 
NCARDS19)5 
NINs37 
1E8V20 
PADEGS57 «2458 
NE GRAS{.7459Ee2 
KDTAPSRTAPSRADEG+200 
KDB AT sRRAT#eRADEG+200 
KDLF TaRLFT*Q8ADEG+200 
KDRGT ®RRGT #RADEG+200 
CONTINUE 
IF (NINeLTe¢37) GR TB 250 
CALL BUFFER IN(TTAPEs, 0,1 BUFIN( 4 )2296eTKEYSNI) 
CONTINUE 
G68 18(211221522130214) IKEY 
AUTPUT 'WAINTING! 3 GY TA 210 
HUTPUT "ESF 9N, TTAPE' 3 GS Te 900 
RUTPUT 'TERRAR BN INPUT! 3 STBP 
CANTINUE 
DECSDE (1134210012 BUF IN( 4 )eND) 
KLAT»KLENG» KOUMI s KDUM2, KDUM3, KNUMGs KDUMS, 
(KCENEL (CT) a KCENFA(T) » kK CENLAT( Ts KCENLANG(I)5 
KAVEL (IT) eKAVFA(T) sKPTS( I) 5721536) 
NIN#O 
TF CCKLAT eGTeKDTAE) eF9Re(KLATeLTeKDOBAT)) NINe373 GA TR 200 
IF ( (KLANG eLTeKOLET) eo P#Re (KLENGeGTeKDRGT)) NIN@|Q?2? 3 GA TS 200 


Oe a ee Lae eee 


CANTINUF 

58 TO (316023202323023400350) (NxXe3) 
AVFRAGE FREE AIR 

CANTINUE 

NINSNING1 


TF (NINCE2237) G® TB PDO 
IF (KPTS(NIN) eEQe9) GA TH 319 
NDATAXSELAAT(KAVFAC(NINIZ19) 
G8 Te &On 

AVFRAGE FELEVATABEN 
CANT INUF 
NINSNIN4]4 
IF (NIN®CEQ637) GA TA 200 
IF (KPTS(NIN) eEQe0) GA TY 320 
DATAKSFLAAT(KAVEL(NIN)') 
Gv T8 490 

CENTRAL FREE AIR 
CONTINUE 
NIN@NING] 
IF CNINSEN.L37) GF TA 200 
TF EKPTSININD cEQe0) GH TH 330 
LATAXBELAAT(KCENFA(NIN) 449) 
OA TO 4&N0 





ec Site we do 


340 


350 


490 


300 


1091 


361 


CENTRAL ELEVATIAN 


CONTINUE 
NINSNING4 
IF (NINCEQS37) GA TB 290 
IF(KPTS(NIN) cEQe0) GR TS 340 
DATAX@FLBAT(KCENELININ) ) 
G68 T8 4N0 
NUMBER @F PAINTS 
CONTINUE 
NINSNING] 
fF ONINeEG237) GA TE 200 
IF(KPTS(NIN) eE Qe) GA TA 350 
NATAXSFLOAT(KPTS(NIN) ) 
CANTINUE 
RLATS(KLATSFLOAT( KCENLAT(NIN) )/1000%200) #DEGRA 
RLANGs (KLANG+FLAAT (KCENLANG(NIN) )/4¢90¢"200) *DEGRA 
RETURN 


END BF FILE 
CONTINUE 
TE9D34 
RE TURN 
FORMAT( 37 (The l6e21l2e2lbal4)) 
END 
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KIGHEST ERRAR SEVERTTY$ 9 (NA ERRARS) 


GENERATED CANE 
CANSTANTSS 

LOCAL VARIABLES! 
TEMPS? 


TATAL PRAGRAME 


DEC 
WHRUS 
2s4 
8 
1457 
16 


1765 


HE X 
WARDS 
oo11c 
00008 
on581 
09010 


O06E5 








SUBROUTINE GETGC(ITAPEsNXsDATAXsNY,DATAYsNZsDATAZs 
2 RTOP,RBBT,RLFT,RRGT,RLATsRLONG, IEQL) 
VERSIAN BF 10 JAN 76 TS DB NX PROPERLY 
AND T@ IMPLEMENT SSW 46 
BRIGINAL VERSION 43 SEPT 75 
DIMENSJSN JRUFIN( 62300) 
DIMENSION KADE (300) sKDLAT( 300) s KDLANG( 300) 2KELDEP (309) ,KEF ’ 
DIMENSI®N KAVFA(10210) #KAVEL (10010) »NPTS(10010) 
DIMENSTAN HAWFAR(10,10),KCENLAT (10,10), KCENLOANG(10,10) 
DIMENSTAN KCENEL (10210) eKCENFA(10210) 
DIMENSTE8N NCENEL (109) sNCENFA( 100) »NCENLAT (190) ¢NCENLANG( 100° 
DIMENSISN NAVFA(100), NAVEL (100) 
EQUIVALENCE (KAVFAsNAVFA) 
EQUIVALENCE (KAVELaNAVEL) 
EQUIVALENCE (KCENLATsNCENLAT ) 
EQUIVALENCE (KCENELsNCENEL) 
EQUIVALENCE (KCENFAsNCENFA) 
EQUIVALENCE (KCENLONGs NCENLONG) 
DATA INIT/O9N00/ 
DATA END/'tEITPI7 
IFCINITeNEen) GS TS 200 
AUTPUT 'SUBRBUTINE GETGC VERSION 10 JAN 76! 
INI T®1 
INTTIALIZATION 
CONTINUE 
NCARD8®105 
NOL T8100 
KURLAT#999 
KURLENGS999 
NRET#0 
IE8D#Q 
O08 107 {#1510 
DB 106J#1210 
NPRINT#108 
KAVFA(IaJ) 80 
KAVEL(I,J)80 
NPTS(19J)80 
KCENEL(I2J) 80 
KCENFA(T2J)80 
HBWFAR(1,J) #999 
KCENLAT(Ia4)#0 
KCENLONG( Ia U0) 80 
CANT INUE 
CONTINUE 
NRETsQ 
ILAST#0O 
NBR®O 
NI8Q 
RADE Gs57-22958 
DEGRA84-7453E=2 
IF (JSW(25)eFGe0) GB TH 120 
READ(NCARD,1001) NTAPESN 
FORMAT (20A4) 
IF(NTAPESNeEGeEITP) GO T9 999 
CALL MBUNT(ITAPE,NTAPESN) 
WRITE (NPRINTsS1002) NTAPESN 
FORMAT(1%p/25Xe'TAPE S/N'sAbs § MBUNTED!) 
CONTINUE 
KOTBPSRTAP#RADEG+2006 








606 
61. 
626 
636 
64e 
656 
66e 
47-6 
686 
69 
7O6« 
Ale 
72s 
73-6 
The 
75.6 
7660 
77. 
7TRe 
9. 
ROe 
Rie 
RP 
Re 
Rue 
B56 
RGEe 
R76 
RRe 
EGe 
Ide 
91. 
Gee 
93-6 
D4e 
956 
966 
97-6 
Re 
396 
1906 
101° 
1026 
193-6 
194° 
1056 
106-6 
107-6 
198-6 
199-6 
110+ 
1ile 
112. 
113- 
114. 
115- 
116-6 
117. 
118. 
1196 


365 


KDBOT SRBAT PRADEG+200e 
KDLFTSRLFT#RADEG+200e 
KDRGTSRRGT#RADEG+200e 
110 CONTINUF 
CALL BUFFER IN(TTAPEs Os IRBUFIN( 4 54)9165021KEYaNI) 
G9 TO (111,115,1132114) IKEY 
114 SUTPUT 'WATTING';G8 TH 110 
113 SUTPUT'END 98F FILE ON INPUT'S GA TB 900 
114 H#UTPUTIERRAR SN INPUT! 3 STEP 
115 CANTINUE 
NIs(N] #4) /22 
DECBDE (NI #22, 1005, 1 BUF IN( 141) 9NP) 
o (KODE (YT) eKOLAT(I) sKOLANG( IE) ,KELDFP( IT) s KFACT) as TeieNT) 
IDECSDE #0 
NIN#®O ce 
IF (NXeEDe4&) GA TA 200 
IF (NXeEQe¢5) GA TR 200 
IF (NXeEQe6) GA TF 200 
IF (NXeENe7) GR TA 200 : 
TF (NXeGEe Re ANDeNRET*EQ00) GBH TA 200 
IF (NAGE e Ze ANDeNRETe GT ed) GY TR 665 
200 CANTINUF 
1010 FRRMAT (10¢(1xXe14)) 
1011 FARMAT(1Xe15s4A4) 
TF(ILASTeEG*e1) GA TE 919 
IF (NRET*¢GT¢9) GA TB 665 
TF(1SW(46)eFQ0,) GB TH 295 
IF (NBReGTeQ) GB TB 205 
TF (NBReEQ eA) READ(NOLT210030FND8900) NBR»aNDLTLTeNDOLTLGRsNOLTLGL 
1003 FARMAT(5XsI4s312) 
CHECK BAUNDS 
IF(NOLTLTeGTeKDOTAP) GB TA 500 
IF ((NDLTLGL «LE e KDRGT) eANDe (NDOLTLGReGEeKDOLFT)) GR TB An4 
§A Te 590 e 
204 CANTINUE 
TF(NOLTLTeLTeKDRPAT) GA TA 590 
c WITHIN BBUNDS 
205 CHNTINUE 
IF(NINeLTONI) GA TE 270 
210 CANTINUE 
CALL BUFFER IN(ITAPEs Os IBUFIN( 124)21650eTKEYaNI ) 
GM TS (244021527139214) TKEY 
211 AUTPUT 'WarTING's GB TE 219 
213 FUTPUTIEND SF FILE AN INPUT'3 GA TS 900 
214 SUTPUTTERRAR AN INPUT! 4 STAP 
215 CONTINUF 
NI@(NI#4)/22 
DECBDE (NT #2291005 1BUFIN( 191) aND) 
* (KODE (T),KDLAT(I) sKDLANG( ID, KELDFP( Ts KFACT I, 124, NI) 
IDECOLE #9 
1605 FARMAT(390(T12eT5# 16015) ) 
NIN®Q 
220 CANTINUF 
IF (IDECSIOF eEQe1) 
eDECSVE (NT #2221005¢ IBUFIN(1+1)2N0) 
* (KBDE CT) ,KDOLAT(I) »KOLANG(T),KELDEP( I)» KFACT),Ta1.NI) 3 
* JODECADEsO 
NIN®NINGL 
NBR®NBRel 
KLATB®KDLAT(NIN) 4100 





Sa RS TRL SY MENON A NEC ME TONLE LETITIA SALAD“ NTRS ene 


PRAGA IST SLRS 


—— 


OREN wR KE ES Re A i RT GOCE 


pe RET RTE 


120+ 
1216 
122-6 
1236 
124. 
{P56 
1°66 
127. 
1?8- 
1796 
1306 
1316 
132-6 
{336 
134. 
135° 
1326-6 
137. 
1386+ 
1396 
140. 
14ie 
1426 
143. 
L446 
1456 
1466 
1476 
1486 
149.6 
150° 
151.6 
1526 
153-6 
1546 
155-6 
156-6 
157-6 
15R.e 
159-6 
1HO65° 
1616 
1426 
163° 
1646 
165-6 
1466 
1676 
14% 6 
1496 
170° 
1716 
172- 
173+ 
174. 
175-6 
117A.» 
177. 
| 7Re 
179-6 


230 


240 


250 


260 


270 


220 


340 


360 


370 
380 


440 


450 


460 


470 


4G 


$90 


366 


KLANGSKOLANG(NIN) 4190 

IFC ISW(46)eEQe1) GO TB 230 

IF CCKLAT eGTeKDTAP) eARe (KLATeLTeKDBAT)) GAR 19 209 
IF ((KLOANGoL TeKDOLFT) eARe(KLONGeGTeKDRGT!) GA T9 200 


CONTINUF 

G8 TE (249 925017602270260026002 400 240026009600) (X= 
DEPTH 

CANT INUF 


IF(KELDEPI(NIN) eGEeQ) GA TA 200 
DATAXS@FLAAT(KELDEP (NIN) ) 
GA TS 48 

ELEVATION 
CANT INUE 
IF (CKELDEP(NIN) eL TeO0) GB TA 200 
DATAXSFLAAT(KELNEP (NIN) ) 


GH TO 4&0 
FREE AJR 
CANTINUE 
DATAXSFLAAT(KFA(NIN) 410) 
G6 TO 4&0 
BAUGER 
CONTINUE 
AUTPUT "RAUGURE CALC NOT IMPLEMENTED! ;ST@P 
CANT INUE 


IF (Nye Ee) G8 TA 480 

GB TB (3240232501 32609370) (NY#3) 
CONTINUE 

IFC KELDEP (NIN) eGEeO) GE TH 200 
DATAYSeFLAAT(KELDEPI(NIN) ) 

G9 TO 380 

CANT INUE 

IF(KELDEP(NIN) oh TeO) GO TEA 200 
DATAYaFLAAT(KELNEP(NIN) ) 

GO TO 380 

CANTINUF 
DATAYSFLAAT(KFACNIN) #10) 

G8 TG 380 

CONTINUE 

CONTINUE 

IF(NZeE Qe) GOB TEA 480 

$8 TO (44094502 4602470) (N23) 
CANTINUE 

IF (KELDEP( NIN) eGE°¢0) GB TA 200 
DATAL@@FLAAT(KELDEP(NIN) ) 

GH TO 4RO 

CONTINUF 

IF CKELDEP(NIN) el Te) GO TA 200 
DATAZSFLAATIKELNFRININ) ) 

69 TH &R8n 

CONT INUF 
OATALSFLAATCKFA(NIN) #10) 

GH TO 4&RO 

CANTINUE 

CANT INUEF 
RLATS((FLAAT(KDLATININ) )/100¢) @PODe) #DEGRA 
RLAVGS(IFLAATIKDLANGININ) )/1000 )e2)Ne) #DOEGRA 
RETURN 

CANT INUF 


CHECK TE PAST BRRUNNS 
TE CONDLTL GR eL Te “OLE T) eAND« (NDLTL TeL Te KDOBAT) 3 





367 
120-6 * SUTPUT 'PAST RAUNDS' &§ GB TB 900 
Laie C BUTSIDE BBUNDS 
1226+ 502 CANTINUE 
1836 IF (NBReoLTe( 200"NIN) ) 
184e * ID0EC8DF et 3 
1856 * NINeNIN¢NBRY NBR#OS GAR TA 200 
; 1366 NBRENBRe (3QNeNIN) 
7: 147. CALL RUFFER IN( {TAPE s Oe TBUFIN(1,1),1650,1KEY,NI) 
i {RR 1012 FARMAT(1xeP 152 3A4) 
i 19° NIS(NIT #4) /p2 
3 1906 505 CONTINUE 
4 191. GA T6(54112051505130514) IKEY 
1926 S14 APUTPUTTWATTING! 4 GA TA 505 
1936 513 SuUTPUT! EA@F FBUND WHILE SKIPPING'; GB TB 900 
1946 514 SUTPUT TERROR WHILE SKIPPING! 
195-6 515 CONTINUE 
1966 NINO 
197-6 58 TS 80? 
198s C ABSTRACT DATA BEFORE PLOTTING 
1996 600 CANTINUE 
200° TE (KURLATeF 92999) GA TE 668 
2016 IF CCKLATe®EQ*KURLAT) eANDe (KLANGe EF OeKURLANG)) GA TH 700 
2026 (Z NEW DEGREE SQUARE 
2936 € 
2r4e £ PREPARING PRIBR DEGREE SQUARE FAR BUTPLIT 
2056 DE 660 181510 
2 6¢ D8 650 J#1910 
O76 KAVFA(TsJ) @KAVFA( Ta J) /NPTS( Ie) 
C78. KAVEL(T, JS) SKAVEL( Te» J)/ZNPTS( lod) 
296 650 CANTINUF 
216 6460 CANTINUE 
211° 665 CBNTINUE 
P1iPe NRETSNRET+4 
2136 IF (NRE T*¢GT*®100) GSB TH 668 
214.6 TF (NX eE D0 R) DATAXBFLBATINCENFA(KREYT)) #0013 GOB TA 667 
2156 TF (NXE D09) DATAKSFLAAT(NCENEL(NRET) )3GA TA 647 
Plbe TF (NX eF 042) DATAXBFLASATI(NAVFA(NRET) ) #o0¢13 GA TA 667 
217-6 TF ONXeF 013) DATAXSFLAAT(NAVELI(NRET)) 3 GA TA 667 
C1 Re 6467 CANTINUF 
P1996 IF (DATAXeFEOeD) GR TA 665 
2706 RLATE( (FLA ATINCENLATI(NRET) 419000) = 2000) *DEGRA 
21. RLANGS (CFLAATINCENLANG(NRET) )/100¢)*#200*) #DEGRA 
PPP. RETURN 
ad 36 66R& CONTINUE 
rd KURLATSKLAT 
275. KURLONGSKLANG 
C766 NRE TSO 
PPT. C CLEARING ARRAYS BFFARE NEW DEGREE SQUARE 
PrARe N8 680 Ja4s10 
CPG. Nf 670 J#1,10 
2id-s KAVF AC T+ J) 2% 
Paje KAVEL(CTsJd) 89 
2ie-s NPTS([,J)80 
2336 KCENEL (Te y)20 
Pibe KCENFA( Ts J) 89 
235. HANFAR( Ts J9) 399900 
2366 KCENLAT(ITsJ)#80 
PI37-6 KCENLOANG(T,J) 80 
Parke 670 CRANTINUF 





PAV. aeRO CANTINUE 
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2400 
24le 
2420 
2436 
244, 
2456 
2460 
2476 
24860 
2496 
250¢ 
2516 
2526 
253 
25460 
2556 
2566 
2576 
2586 
2596 
2606 
24516 
2626 
263° 
264e 
2656 
2660 
267.6 
2686 
269° 
2706 
271° 


2726. 


273° 
274e 
2756 
2768 
277° 
2780 
2796 
2806 
281-6 
2Ree 
2836 
2B4e 
2856 
2566 
2876 
2886 


an 


700 


900 


905 
906 


910 


967 


999 
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SAME DEGREE SQUARE 
CONTINUE 
DLATSFLAAT(KDLAT(NIN) 1/1908 
DLONGaFLAAT(KDLANG(NIN) ) 410000 
DECLATSDLAT#FLOAT(IFIX(DLAT))+0.001 
DECLONGsDLANG#FLAAT( IF IX(DOLOANG) #00001 
KDECLAT#SIFIX(DECLAT#100¢) 
KDECLANGSIFIX(DECLONG*100e) 
TeIFIX(DECLAT#10e 441 
JSIFIX(DECLONG#10) +1 
KAVEL (I,J) @KAVEL (Tad) #KELDEP(NIN) 
KAVFAC Ts J) @KAVFA( Ted) KF ACNIN) 
NPTS(I,J) sNPTS(TeJ) +4 
OIST*SGRT((KDECLAT#( (Ie 1)#1045) )#924(KDECLANG=( (Jed 1)*10+5) )##2) 
IF (OISTeL TeHOWFAR( I eJ)) HOWFAR( Te J) sDISTs” 
* KCENLAT(IaU) ®KOLATININD 3 
* KCENLANG( I,J) SKOLENG(NIN) 3» 
* KCENFACI eg) eKFA(NIN)§ 
*KCENEL(TaJ) SKELDEPI(NIN) 
GB Te 200 
PREPARING LAST DEGREE SQUARE 
END BF FILE 
CANTINUF 
IF(NXeLTe8) GO TE 999 
ILAST#1 
D8 906 I=1s10 
D8 905 J¥i,z10 
KAVFA(]T, J) SKAVFA(CIT as JI“ZNPTS( IgV) 
KAVEL(IleJ) SKAVEL( Ie U)/NPTS( I ay) 
CONTINUE 
CENTINUF 
BUTPUT LAST DEGREE SQUARE 
CONTINUE 
NRET@NRET#1 , 
IF(NRETe¢GT*100) GB TA 999 
IF (NXeE O08) DATAXBFLBAT(NCENFA(NRET)) *#o°45 GB TS 967 
IF(NXeEQ0e9) DATAX®FLGAT(NCENEL(NRET))3 GO TA 967 
IF(NX®EQ 012) DATAXSFLOAT(NAVFA(NRET)) #001) GB TA 967 
IF (NXeEQe43) DATAX®FLEAT(NAVEL(MRET)) &¢ GO TS 967 
CONTINUE 
IF(DATAXeEQeQ) GB TA 910 
RLAT®((FLAAT(NCENLAT(NRET) )/100¢) @200¢) *DEGRA 
RLONGs( (FL@AT(NCENLONG(NRET))/1000¢) #2000) #DEGRA 
RETURN 
END OF JSB 
CONTINUE 
IE9Ds4 
RETURN 
END 
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BLANK CBMMBN (0 WARDS) 
ENTRY P@INTS? 
00000 GETGC 
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INTRINSIC SUBPROGRAMS USED! 


FLOAT IF IX SORT 


EXTERNAL SUBPRAGRAMS REQUIRED! 


Fe101 
9BCORFAD 
9SETUPN 


BUFFERIN F:iae 
F3106 
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{Sw 
F3108 
QPRINT 


MBUNT 
9BCORDEE 


9ORTFI 9SORY 
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| 
1e SLBROUTINE GETGS(ITAPE,NX,DATAX,~FMT,RTGF, REST, RLEFT,RRIGT, | 
Qe 1 RLAT,RLANGsA KGCAsKGMOsKGYR»KGHKs TEGC, TALK) ; 
3° Cc VERSION 306 VAN 75, CORRECT REAC FBR JShW(29) 
he € VERSIBN 26 velLNE 74, FINAL TOLChES CBNVERSIAN TA 67 G FORMULA 
Se ¢ VERSION 12 ¥LNE 1974 
6¢ C- VERSION 6F 10 ALGLST 19734 START CONVERSION TS 1967 G FBRMULA 
Je Cc VERSISK 30 MAY 73 
Be [ss GIN60140 . 
Se Cc GIN60150 
1Ce C Ssh(i2) LF 18 LIST CATE ICENTIFICATION 
tie C SSW(27) LF TH SLPRESS REWIND 6F TAPES AT START 8F JOE 
126 Cc s1 SLPRESS REWIND BF I TAFE GIAB0240 
13° ¢ SSW(25) = 1 = TA@ READ ANC TEST FOR SELECTED SAURCE CADE 
140 € NUMBERS TH BE PROCESSED * 
15° Cc s 2» Te READ ANC TEST FOR SELECTEC SOURCE Cade 
16< C NUMBERS TO GE SKIPPEC 
17¢ c 
18° € . 
19° C SSW(4c) LP T6 PRACESS WITH BaLACS LSING CLY 
2eCe Cc * 0 © PRECESS WITFAUT BEUNDS 
21° Cc a { © PRECESS WIT BALNES USING TrkE DATA LOCATISN TABLE 
22e € GIN80270 
236 Cc USES ENDIG(CLMMY)s EVIL, STATs ISW GIN6Q280 
Z4e C ASSLMe TSW AND STAT INITIALIZEC IN MAIN PROGRAM GINe0eg90 
25° C GIN80300 
260 C GIN80O310 
27°¢ CIMENSION IGSL( 4c) IFMT (4c) 
pRe ¢ 
29° CIMENSION @BLF (§0432)e801(128)s6LK (128) 
3C° CIMENSTEN [S(2Ce5)eIL(2cs&) 
31° CIMENSIBN IJLON(2c)sIPIE(EC) 
32° CIMENSI8N BNARERC TAREE Saye et 
33° C 
34e LIMENSIA8N RVAR(5) 
356 CIMENSTAN ICTIN( ZO), IBKIEC) se 1TK(20) sJOENS(20), DESC(17,20) G1N60320 
36° CIMENSION ICT8T(20)eyBK(2C)s UTK (20) a DENS (20) 2 JOESC (17220) GIN680330 
37° CIMENSTION FLT (29) 1A(35) 9 TAFMT(9) se LASH( 35) 1SRC( 46) 
38° CATA ITERI/'EITPI, 
39° CATA [eus? '/ 
4Ce CATA IFLAG/C/s IF IN/O/a9 IFLEI 707 
41° CATA IGSUs' (Lisl 4e3loslaser9e4e ly 13) 
426 * 
436 * ‘/ 
4he CATA NVAR(3)s ILEN(3)sITPIE(3)» 
45° * CIVEM (Sev dectto2)oIS(Se1)sTb (3501) 
466 * S/Le2etatF7e2, "934077 
47° CATA NVAR(4)sTLON(4)SIPIE( 4)» 
4Be * CIVEM Chae locstqe2 bo TSC4a tra Tb (44) 
496 * /1s2s5h,'F 500, ',50,5, 
5Ce CATA NyAR(S)sILON(S)eTPIE(S), 
54° © CIVEM(Saedacete 3s 1S(Sat sh (Soa ds 
52° * 18(5,é),1L (522) 
53° # ferzeee FJ easF SoCs = $'2549725085/ 
Sas CATA NVAR(E6)sTILON( 6), IPIE(6)s 
55° * CJVEM(6aeleutlee s[Sl6sldo TL (601) 
566 * SLaeoita'F6ed, ',5506/ 
576 CATA NVAR(7JI*SILENI7IZIPIE(7)4 
58« ®© CLVEM( Jag) acela2)aTSt7aolde Ib (701) 
59° * S/Leeota'FSet, "6106s 
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CATA NVAR(8)sILON(8),IPIE(B)s 

* (IVEM (Badd ecels2dsTS(8el),1b (851) 
*/Lelaie'Faeles "s6724/ 

CATA NyAR(S)sILON(9),IPIE(9)s 

® (IVEM(Sow)sueqe sz sIS(Sst ps lh (Get pa 

« 1S(S$,2)eIL(9s2) 

® f2aZeta FGetaroets 896196267 04/ 
CATA NVAR(1C)s,ILON(1O)sIPIE(1C),s 

* CIVER (Caddo dete 2deTSCicetsth 61001) 
© S/le@ela' Feet, ',7546/ 

CATA AVARCLL),ILEON( AL), IPIE(11), 

© CIVEM (Ades) cade Se TS( ited vothcited) 
© S2eBeletF3eosFéezs 3 12835429/ 


? 


CATA NVAR(13)sILON( G3) 2IPIE(13)0 

* CIVEM(AS av oceda Sd sIS(1S,2) sIL (1301), 1S(13902),IL (13,2) 
© S5a302e'4F Seco F Beds 18820829008/ 

CATA NVAR(14) + TLON( L4H) 2TPIE(14) « ; 

#  CIVEM (La ee docute a oTS (240d aTh14ed ds TS(1402) 3b (1402) 
* S/S5ade2e'4F2eCoFbeds '88628298s6/ 

CATA NVAR(AS)eILON( 15) 9IPIE(15)— 

* (IVEM (15 as)evete sro TS (159d oTh (150d) sIS (1502) 21h (1522) 
* S5eze20'4FSeCaF Gets '48208110406/ 

CATA NVAR(1L6)¢ILON( 16) sTFIE (16). 

# CIVEM(46eu)evwte3)e1S(4601)01b61604)2 1S (1602) 01b (1622) 
& SSa3e20'4FeecoF eds '98208911004/ 

CATA NVAR(47),I1LON( 47) sIPIE(17), 

* CIVEM(L7 ac scsto So ISC17 aldo Tht 7od de IS(d7 eee IL (1722) 
# fSazs2e'4FoeceF begs 198298941504, 


CIMENSION IST(2Q:eILT62C) 
CATA IST(L)FILTOL) SISTA SILT(2) 4123301E106/ 


IF (IFLAGeNEoC)G8TS5Q 
IFLAGS4 


weaeee GETG INITIALISATION LOGIC 


ILI# 99 4 IDL#100 
ICN\Cao 4 IChA#O 3 ICBNTSC 
TIN#105 
TISLT = 108 
IEOC%0 


KMAX#39 3 KN®D 


CEGRA = 1°7485329E-2 
RADEGs57°29578 


CLABG#REBT*RADEG § DLATB#RTAP*RADEG 
CLOLE*RLEFT*RADEG 3 CLERI*RRIGT*RADEG 


NZER680 
KGCABSNZEREB 
KGMOBsNZERB 
KGYR@SNZERG 


GIN80390 
Grneo410 


GIN80430 
GIN80470 
CIN6O4g0 
GIN8O490 
GIN60500 


enewe 





SSW AS ETE OY DIRT 


KGRM6sNZERG GIN80510 
ARECT s \Oe 8F RECBROS NOW WRITTEN 6N PRESENT SBUTPUT TAPE GIN6Q520 
NEF = NO. OF FILE NOW BEING FRECESSED GINO9530 
NRECT = AZERO GIN80540 
IREC1 = GIN60550 

GIN6C560 
SLUTFLT 'GETGS VERSION 3¢ VAN 75 FOR 67 ¢ FBRMULA! 


intaaeatnes ChECK ssh(29) T6@ SEE IF SOURCE COCE KUMBERS 
exkau ARE Te Be READ FER DATA SELECTIBN 


IF (1SW(29) ©€G0o)G8T04405 
REAC( TINS SCC)ISRC 
gcc FSRMAT( 1615) 
IF (TSW(29) *EGed WRITECIIGLT#912)1SRC 5 GOTB1405 
WRITE(TIOUT#513) ISRC 
913 FORMAT(1HC,1CX,'SKIPPEC SOURCE COLES = ',1615) 
Siz FARMAT(1{hOs1Cxs 'SELECTEC S@URCE CB8CES s 41615) 


C 

4405 IF(ISW(ag)eMEoc)CALL ENCLT(J,CLATO,CLABB,CLBLE, OLORI,IDL,ILI4Q) 

* 3 CALL SETSKP( INDICA) 3 IOLTs0 

* J NEF®L §& JFILESuel & OLTPLUT NEF,IFILE 

*» 43 G8 TE 14106 

IF (1SW(30) 404940421410 
404 vel GIN80580 
405 READ (TIN, 406) IOTING WM) ,TBK (ede TTK (eds IDENS(), GrNe0530 
(IOESC(ke .)sKelsi7) GIN80600 


1 
406 FEORMAT(AGs 1X9 A494 X90 T401X%013947A4) GIN@0610 
IFC IOTING J) eNESITERI) Vayt+ls Ge Te 405 GINe0620 
NEF 4 GIN80630 
IFILEs. = ji GING 9640 
BLTFUT NEF,IF FLE GIN6O650 


¢ 
C 
14ic IFCISW(30))16s1022414 
1C IFC ISW(40) *EGeC)GBTA811 
READCICLs4C6)ICTIN( 4) sTBK( 4) eT TK( 4) ICENS(4)o 
* (JCESC(Ks1),K"1,17) 2 ITMDLEC 
811 CALL MOLNT(ITAPE,ICTIN(4)) 
BLTPFLT 'INFLUT TAPE MBUNTEC ! 
WRITE (17OLT24443) IOTIN(G 4), TBK( 4) s1TK(4)eTDENS(4), GIN80780 
1 (IDESC(Ks1)sK81417) Gy\80790 
1413 FORMAT (1xsA4e 1 XsALoLXel 191 Xs 1301 7A4) GIN60800 
B1c IFCICTIN( 4) sEGeI TERI) IESCSy § RETURN 
GUTFLT Veeserecanecag! 
IF (ISwW(27) *EGe1)GeT82414 
REWIND ITAPE : GIN60820 
IF (VFMTeNE®SIPRIATS2Q & IEBD#4 4 RETURN 
920 FORMAT(IHOsSX, SFMT NOT EGUAL Ye 3 » GETG CAN ONLY PRACESS GSUM 
* DATA's/) 
CE9241 8104 
IFMT(T)#IGSU(T) 
S24 CONTINUE 
IF (NXeLTe3)GBTA2414 
IFC (NKX*EG #12) GRe(KXeGT017)) FRINTIZIsNXsLEGD*1s RETURN 
921 FORMAT ({HOsSxs Nxt se 3xelesSxe! TRIS OPTION NOT YET INCLUDED!) 


IFMS48IFMT(6) & IFMSOSIFMT(7) 





6 


374 





18C> CBS22 Tate ILEN(AX) 
181° IkSLs1l45 3 IFMTCIKSL) SIVEM(NXaT) 
182e g2e CO8NTINLE 
183¢ IKSLeIkSbe1 9 IFMT(IKSL)eIFMS1 
1846 IKSL#IKSL41 3 I[FMT(IKSL) sIFMS2 
18° C 
186¢ : ISTisIST(2) + iLTisIL Te) 
1876 CO923T eye IPIE(NX) 
188 KASKASL 
189° IkShelo1 3 IST(IKSL)sIS(NXaIT) 8 ILTCIKSL) sILINxXe1) 
19Ce KMAXSKPAX*IL(NX,1) 
191° $23 CONTINUE 
1926 IKSLeIkSLo1 y IST(IKSL)sIST)] gs ILT(IKSL)sILT4 
193° c 
1946 2414 CONTINVLE a GYK8982> 
195° PRINT2445a IF MT 
196¢ 2415 FARMAT(yHQs5X,tRUN TIME FORMAT & ta/94XseZQAba/a1Xs2QA4a/s 
1976 . 6Xp lwwceweewacecegaeseurn',s//) 
198¢ C 
199° C eaence GETG INPUT LOGIC 
20Ce € 
201° Sc CALL ENDIE GIN80950 
2026 IFCISW(40O) NE oc) GATA5OL 
203° (3 
ZO4e Se CALL BLFIG(ITAPEsIENDs tac 
205: *TBLK, gee KMAXS KN, ISTs IL TsBLFs BL sAL Ks ICNT) 
206° IF(IENDeEGe1)Is2 3 GA TA 710 
207*¢ é 
208° IF (NxXeGTe2)GOT8S950 
2096 CECOCE (KMAX,IFMT, ALI) IRECy, ISORC,KGCA,KGME,KGYR, KGHM, DLAT,DLANG, 
21Ce * LTKEYsLGKEY 
eiie IF(NXeEGe1)VARekgky 3 GATB6970 
é12e IF (NX eEG 02) VAR#ISORC 
2136 CeTas7c ‘ 
2146 95c CECECE(KMAX,IFMT,@BL1) IRECy, ISORC,KGCA,KGMB,KGYR,KGHM, OLAT,DLONG, 
215+ * (RVAR(U) sJ®LsNVAR(NX) Dy 
216° * LTKEyslLGKEy 
217° IF(IFLGIeEG.1) GS TA 275 
218s IFLGI ® 4 
2196 WRITECILOLT» 374) IREC1 
e2ce 374 FERMAT(' INPUT IREC @ tale) 
é21° IF (TREC{sEGey) BUTPLT + CONVERTING TO 67 FORMULA IN THIS RUN1 
222° IF (IRECL+EGe2) BUTPLT ' INPLT ALREADy IN 67 FORMULA! 
223° 375 CANTINUE 
224° IF (NXeNE 05) G87T8953 
225° IF(RVAR(2) *EG*C)VARSRVAR(1) 3 GBTBS7C 
226° VARseRyAR(2) 3 G8T8970 
227° 953 IF (NXeNEeS)GO6TA954 
2286 VARSRVAR(1)4RVAR(2) &¢ GBTE97O 
229° 954 IF(NXeNEe11)G8T8955 
230° Cc NX 8 41 TO FLOAT BBSERVECD GRAVITY 
231e Cc TRIS ROUTINE CANNeY PLET BBSERVED GRAVITY 
2326 AaRVAR(1)*S776 3 AsAwl0C0°0 
233° 621 VARSRVAR(2)%A 3 G6T6S7C 
2346 955 Petes te) eereses 
; 235° F(RyAR(4)eNEojoe)PRINTSS7 » JEG0e1 3 RETURN 
: 236° 957 FORMAT(iHosick, tIFFC CADE NOT EGUAL TO 4¢ 147) 
237° AGRI®1e/RVAR(2) 3 KGRI®AGRI/2e 
238° IAXsLTKEY*89 ; I16XsL GKEY e180 


2396 ALV#FLGATCIAX) ¢ BLVSFLEAT(IOX) 





= 


375 


CLATSALVehGRI e(RVAR(3) 01) *AGRI 
CLENGSBLV#hGRI+(RVAR(4)*1)#AGRI 
RLATSCLAT*CEGRA ¢ RLONGSCLONG*DEGRA 
VARSRVAR(S) 3 GATAS7O 
S56 VARsRVAR(1) ¢ GETS970 
97c ICONT#ICOAT+4 & ICNDSICAC41 
101 C6ATINVE GyN61090 
CALL STAT(I) GINO1100 
71¢ CONTIALE ; 
CALL EVIL(IIOUT,1,1BAC,KCDAB,KGMBB,KGYRB,KGHMB ) GIN@11410 
IF (IBAD) 5Cs 536 575 G1N61120 
53 IFC(IREC1*2)60C+702600 
60c IFCIRECL#1)5¢0470450 
575 IF (NEF = IFILE) 5769 §77, 577 G1Ne1240 
576 NEF = NEF # 3 4 GIN81250 
IF (1Sw(40) eEGec) G8Té82e0 
READ(ICL 2 4C6) IDTIN(NEF ps JEK(NEF )s ITK(NEF ) s IDENS(NEF ), 
* (ICESC(Ks NEF) sK24017) &§ IMOL®C 
82C CALL MOUNT(ITAPE,IDTIN(NEF)) 
SUTPLT 'INPLT TAPE MBUNTER! 
WRITE (LIOUT24443) ICTIN( NEF), TBK(NEF ) yg TTK(NEF)s IDENS(NEF)» GIN614270 
1 (JOESC(KsNEF),K81517) G1N81280 
BLTFUT Pewereeeacevee? 
REWIND ITAPE GIN\81290 
G8 T8 30 GIN61300 
ENO OF INPUT CATA, REGLIRED NO. OF FILES NOW PROCESSED GING 4310 
577 I1E80#1 4 RETURN 
7C «IFC 1SW(12))73,73,71 GIN81390 
74. WRITE(TIGUTs72)KGCAsKGMOsKGYRe kKGhM GIN81400 
72 FORMAT(ICATE Sts 313815) GIN81410 


73 IF (ISW(29) *EGeQ)G8T84736 
IF (1SW(29) *EGe2)G8T8170C 


woeees PRECESS BNLY SELECTED SOURCE CODES 


C61650.81415 
IF CISRC( 4) EG eC) GATE5O 
IF (ISORC#ISRC(L) )16502173C21650 
165C CONTINLE 
G6T65C 
Cc 
C weecce IGNORE SELECTED S6URCE CYDES 


Cc 
170C C81710,81516 
IF (ISRC(U) eEG eC) GOT9173C 
IF (ISORC#ISRC(L))171045001710 
171¢ CONTINLE 
C 


C scence 


C 
173c IFCISW(60) eEG+1)G8T81731 
RLATsOLAT#CEGRA 
RLONG*CLONG*CEGRA 
1731 IF (NX*eEG*O0)C8T8418 


¢ CONVERSIAN BF 1930 INTERNATI6NAL GRAVITY FORMULA TO THAT BF 
Cc THE 1967 INTERNATIBNAL GRAVITY FORMULA 





TRIS SUB CECS8CES BNLY TRAT VARIABLE T@ GE PLOTTED. 
Nx CETERMINES THE VARIABLE® 


TF (NX eEG 044) 
BLTPLT ' CaNNO°> PLYT BBSERVED GRAVITY! - 
STAF 


TA AVE TD PLOTTING INVALIC DATA POINTS 

IFC(NX*EGe6) ee ORe 
NXeEGe7 cBRe 
NXeEGeS eBRe 
NXeEGelO e@Re 
NXeEGe14 eBRe 

NX eEGe{5) eANDe 

VAReGTe 990eC) 
c8 Te 50 


NOW Wwe 


C6RRECTION FOR FREE AIR OR BEUGUER FER 67 G FORMULA 
RLAT = DLAT # CEGRA 
CEssete(13e64(SIN(ABS(RLAT) )##2)) 


IFC (NXeEG eG @BRe 
NX eEGe7 °@Re 
NXeEGeS eORe 
NXeEGe1O e8Re 
NXeEGe 14 eBRe 
NX eEGe15) eANDe 
IREC1 *EGe 1) 
VAR # VAR + OG 


1 
é 
3 
4 
5 
6 
7 


PLT(NX) VAR 
105 CONTINUE GrN81640 
418 CONTINUE GIN81650 
KGODABSKGCDA GIN61660 
KGMeasKGMA GyN61670 
KGYROsKGYR GIN61680 
KGRM6 sKGHM GINO1690 
IF (NX)411002120021100 
110C CATAX#PLT(NX) 
x BLTPUT DATAX 
12CC RETURN 


ereee? GETG OLT INPUT LeEcICc 


501 IF CIOL TeEGe1)G8TE514 
IF( ICKAeEG *1)GeTe507 


eeeees INPUT AN ELEMENT GF LIST 6F CEGRe SGUARe NEEDED 


REACCIL Ts Sc asENCRSSqdbAycCalLATCsb Oy QC, LOnc 
502 FORMAT(2(12s11)) 


507 CONTINLE 4 ICHAS¢ 
eseceee INPLT A MEMBER OF OLT 
READ (ICL s 5C3sEND 5540) ICENSINBRabALCTaLAT se bO1O1sbON1 LO 402. EN2 





SAA NSPS OPENER DODO EL TT PIPE 


377 


SC2 FORMAT(A4s1Xe1603(12011)) 
ececees TESTING DLT FOR CONSISTENCY 


IF(LO1¢4eNEeLO1ce)PRINTECH § BLTPLT L6icisL6102 4 STEP 
5C4 FARMAT(1HC,10X,'ERRAR IN CLT',/,2CX,'LO1C1 NOT ECUAL Te Le102',7) 


IF (CICENeEGeITBL) G8T8530 
IF CICENCEGe I TERI) GBTOS4C 


L98108L6101 # ILH®LONyeLBNe+4 
weecces SIMLLT SCANNING OF CLT ANC MATCKING LIST 


SCE KEYL®LALOT*LAICC 3 KEY2"L61C*LO10C y 
KEY3eLAT*LATC 


Caso6lsi,IL8 

LON=LA@NLeI4+1 

KEY4eLQNeLBAC 

IF (KEY4)52C2510-506 
Sic JF (KEY2)52C25114506 
511 IF (KEY3)52C45129506 
512 JF (KEY4)52C2513,506 
5cé6 CONTINLE 


weeces SKIFPING UNNECESSARY RECORDS 


C8S5cSltsINER 
CALL BLUFIGCITAPE,IENCs lal, 
* IBLKs3eeKMAxsKNoISTZILT,BLF -BLI,BLK,ICNT) 


IF (IENCeEGe{)GATA5CB 
5CS CONTINLE 

G6T8 5¢7 . 
weowee ERROR CBONCITIBNS 


5c8 PRINTE3S4 3 IEADsy & RETURN 
534 FARMAT(1HC210Xs'yNCARRECT OLT «© FQEUND Ear WHILE SKIPPING RECe's/) 


daweue COACITIGNAL BRANCr TO READ PROCESS 


513 ICND#o 4 JOLT#q 3 BUTPLT 'PRECESS'sINBR &§ GBTESS 
514 [FC ICNCeEGeINGRIIOLT#O 3 CaTasol 
GET8Se2 


weeeee INPLT AN ELEM, OF MATCFING LIST 


52c REACCILI sSce@sENDa55Q)LA{CCeLATCeLB1cCsL Enc 
GeTSscs 


eeeenee COMFLETIOBN MESSAGE 


55c FRINTSS, 3 IE8D#4 5; BUTFLT ICANT & RETURN 
551 FARMAT(1HOs1CX,'AREA PRECESSEC »= STOF',/) 


weeeeee CHANGE TAPE REEL 


53c ICLT#o 4 IChKA*4 3 GATO575 





| 
| 


42C* 


“Sey* 


422° 
423° 
424e 


378 


eeceee END OF CLT REACKEC 


54c PRINTS41 3 IE@C#1 ¢ RETURN 
544 FORMAT(1HQs1CX,t'ENC BF CL™ 
END 


i 
| 3 
: 4 
a 
| 
q 
q 


Ah Wea CORON <. y 


REACFED # STAPF I4/) 


ewer 
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CEC REX 
wBRCS weRCS 
eeseeeo eeeen 

GENERATED CACES 1276 CC4FC 
CONSTANTS? 20 COC14 

LOCAL VARIJABLES; 3375 cooler 
TEVPS$: 2ec coci4 
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SLBROLTINE GETH(ITAPEsNXeNVaQZaNwoCATAXsCATAYsDATAZ,DATAW, 
1 RLAT»RLONGs KGDAs KGMOsKGYR,KGHM,s JEBC) 


VERSION ®F 6 JUNE 19722 ALLOWS FOR LETTERED STATIEN NU OERS 
VERSION OF 22 MAR 1972, IGNORES COL 1 AND CHECKS IF LAT 

AND LONG ARE ZERA 
VERSION OF 18 MAR 1972 we FIRST GNERATION OF ROUTINE 


SLBROBUTINE GETR, FAR REACING HEAT FLOW CATA 


NANNAONANN 


CIMENSTON PLT(8)sM(6) 

IIN = 105 

TI8LT = 1¢8 

TE6Ds0 

KGCAsO 

KGMBa0 

CONTINLE 

READ ( ITAPEs 42) ING, ANGyMySTAICeLATs Als ILATMs KNS, LENG, AD» ILOM, KE Ws 
IHEIT,GRAD, CAND HF, ICC, IREFsTYR 

FORMAT ( yXalbsAg ay Xela yXsABe Xa esAgalovAyaiXelgvAqelosAgayXs 
TS a XeP hola XeF eee XaF Seer aXeApal4siXel2) 

CALL STAT(T) 

CALL EVIL(IIOLT, 1, 1BAC,KGDAG, KGMB8,KGYREG,KGHMG ) 

IF (1BAC) 410253900 

§3 CONTINLE 

KGYR#IYR 

KGHMsINB 

RLATMaILATM 

RLOMeIL6mM 


CrECKING FAR ZERO LAT ANC LONG 


IF (LAT)7C260s70 
IF (ILATM) 70062370 
IF (LONG) 70264,70 
IF (1L6") 702410270 
CALL NAVIN(LAT,RLATM, KNS,LENGsRLOM, KEW, RLATsRLONG) 
KGDA@eKGDA 
KGM66e8KGME 
KGYRO#KGYR 
KGRM8eKGHM 
PLT(1)8IN6 
PLT(2)sITKEIT 
PLT(3) sHF 
PL7(4) aGRAD 
PLT(5)aCONC i 
PLT (6) 9M(1)#1C000C4M(2) #100004"(3) #10000" (4) #1004 (5) #104M( 6) 
PLT(7)8]REF 
PLT(8)sI1YR 
IF (NX)8028528C 
CATAX@FLT(NX) 
CATAYSPLTI(NY) 
DATAZsIHEIT 
CATAWsINO6 
RETURN 
TEO0s1 
RETURA 
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KIGREST ERROR SEVERITY! O (NO ERRORS) 


DEC HEX 
wORES wOROS 
eeece ceeee 

GENERATED COCES 18s cooke 
CONSTANTS? 0 cococ 

LOCAL VARIABLES! 43 oo02e 
TEMPS? 21 coo1s 


TETAL PROGRAM: 253 COCFc 





ane A 


386 








1° SLEROLTINE GETL(ITAPEsNXsNVaNZaNwsCATAXsCATAYsDATAZ,DAT AY, 
2e 1 RLATsRLONGs KCDAsKGMBsKGYR, KCHM, JEBD) 
3° Cc VERSION 16 APRIL 1975e TO8 CORRECT KEYPUNChk ERRAR 
he Cc VERSION 8F g APRIL 1975, 18 ADO SELECTIAN OF TETAL 
Se c ACCELERATION WITh SIGN OF RACIAL COmMPENENT 
6-> - C VERSION BF 23 MAR 319735 ACOING BBUGUER CALCULATIOAN . 
Je Cc VERSTON OF 2g FEB 1973, CrANGE FREM PSC FORMAT To AHO : 
8e C VERSION OF 27 BCT 1972 : : 
ge C SLBRELTINE GETLs» READS LUNAR DATA FROM PSC SFSN PRBGRAM 
10¢ C 
-hie c SSW(34) * 4, TA READ LUNAR CATA 8K 2 CARCS 
12° c $sw(35) = 1, TS WRITE LUNAR CATA 6N 2 CARDS 
13° Cc 
14e CIMENSION PLT(45) - 
) i5e CIMENSION [0(7) 
| 16° CATA ISRT/C/ 
17* IF(ISRTeNE*C) GB TE 5C 
18+ TINw1C5 
19° TI6LTs108 
2ce TEGOsC | 
2le BLYFUT ' SUBRAUTINE GETL, VERSION BF 15 APRIL 1975! 
eee KGDABe0 | 
4 3 KGM6640 
| Dae KGYRA«¢ 
| 25° KGHMB 80 
i 26e CEGRA#10745329E «2 
3 e7e ISRT ® 1 
i 28 ME CUES ISCICSIC COOOL ES ST ts Ss 
j 29e C 
i 3Ce C SETTING CENS!TY vaALLES FER RIM ANC CRUST 
; 31° Cc 
q 32° RIMC#2¢50 
| 33° CRUSTC #2073 
4 B4e Cc PRE R ES ESER ESSER SEC eS eae 
35° C 
| 366 C END 6F INITIALIZATIAN 
376 € 
38e SC [&8Cac 
396 IF (3Sw(34)912)51255051 
4Ce 51 READ(ITAPEsicc) IRECs,ISERC,KDA,KMG,KYR,KHM,SEC,DLAT,DLENG,SVEC, 
bie ® ALTLeaZeSiNGaSTACse SNACoF As TREBR*AKSSTsKSSNsKSSReKSSAVELEVZELFLe 
420 # IDsLTKEY,LGKEY 
43° 10C FORMAT ( Lyslaeglosl uaF Secs ak SemsFBegal7egsFGeasFbsasF boys boys 
4he # Fe tsFIe20413,2F7 037A, 1X2 213) 
4S Ge Te 58 
460 55 REAC(ITAPEsio2) IREC,ISORC,KDAsKMB,KYR, KHM,SEC,DLAT,DLONG, SVEC, 
476 * ALTL,AZ,SINC,STAC,SNAC, FA, TREGR,KSST,KSSN,KSSR,KSSA,ELEV,ELFL, 
4 e * IDsL TKEYsLGKEY : 
439e 1C2 FORMAT (Lis The slos les PSececrSe4eFSeSeF eZeF be QsFbeDeFbeteFbel/s 
5ce # F6o,eFSe2041302F79307AL01X0e13) 
Sie 58 CALL STAT(I) 
See CALL EVIL CIIOUT, Is 1QA0s KGDAGs KGMOO8sKGYRB yg KGHM ) 
53° IF ¢(1BAC)50s60s900 
i 54e 6C CONTIALE 
i 55° IF(IRECeEGe1) G6 TA 65 
1 56° BLTPUT 'IREC DOES NAT = 4! 
57° IF (1Sh(34) eNE«t) GO TO §C 


58° C FAR CATA READ FROM 2 CAROS 
59° 61 REAO(ITAPEs62) 





62 FBRMAT(1X) 
G8 Te 50 
65 CONTIALE 
KGDA@® KCA 
KGMA6s KMO 
KGYR@=8 KYR 
KGEM 2 KhM 
RLAT ® DLAT#*DEGRA 
RLONG® OLONG*DEGRA 
GOBS » FA+TREOR 
PLT(14)8 SVEC 
PLT(2)8 SVEC ©1738.0 
IF (NXeNE ee 3eBReNXeNE 04) Ge Te &¢ 
IF (ALTLeLTeO0C0O1)PLT(3)8008 PLT(4) 803 GO T6 50 
PLT(3) # ALTL 
PLT (4) #(SVEC*ALTL) © 473800 
PLT(5)#AZ 
PLT(6)aSINC 
PLT(7) STAC 
PLT(8) =SNAC 
PLT(9)sFA 
FLT(1C) *TREBR 
PLT(41) = GO6BS 
PLT(42) = ELEV 
IF (NXeEGeLSeANDOALTLeLTeCeO00l1) FLT(13)9Ces GB TA 50 
PLT(13)sELFL 
IF (CELFL) 22223223 
SETTING CENSITY TO THAT OF CRATER RIM 
OENSCaRIMC 
G68 TA 24 
SETTING DENSITY TO TRAT BF CRUST 
23 CENSCaCRUSTD 
24 CBNTINUE 
BGsFA © ((DENSC#ELFL) #0°04185) 
PLT(14)88G 
CETERMINING TOTAL ACCELERATION FAGNITUCE 
CALL TATAC(STAC,sSNACeFA,TACEL) 
PLT(145)= TACEL 
IF (NX)90,9559C 
CATAXePLT (NX) 
CATAYSFLT(NY) 
CATAZ=s PLT(2) 
RETURN 
1E80 = 4 
RETURN 
ENC 
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KIGHEST ERROR SEVERITY: © (NO ERRORS) 


Cec KE xX 

wORDS wORDS 

GENERATEC CADE: 325 Co14s 
CBNSTANTS3 7 c00c7 

LOCAL VARIABLES$ 64 Coo4c 
TEMPS; 17 Coci1 

eeeen e@eeeeae 


TATAL FRAGRAMS 413 ccois0 





Ere, ele teh petatecimnsn hens arte A SD gi SNS ale ia i I i I at Sa ta AB GAIN 2 nab Salt CUE Ee lt a i as 


390 
4 SLBROUTINE GETM(ITAPEaNXaNYsNZaNwa DATAXsCATAYsDATAZsDATAWSRLAT: 
Ze tRLONG, KGDA,KGMO,KGYR,KGKM, JEBC) 
3e € 
j = : SUBROUTINE GETM,FOR READING BATRYMETRY AT MBATR FRRMAT 
e 
6a. t¢ ChANGEC 8 NOVe 1971 BY ReCe GROMAN TB UNIFY DEFINITION GF 
Je Cc PLT(L)STIME IN ALL 'GET! SUBRELTINES 
4 8 C 
E Qe CIMENSION PLT(7) 
E ice TE@0sC 
e gee 116UT#1C8 
12¢ 14 CALL ENCIS 
13° 15 READ (ITAPEs 16)KGDA,KGMO,KGYR,KGHM, ITZ, DATA,MTAB, COFM,CDM,DLAT,DLEN 
146 1GeCISsCIReSPC 
1S° 16 FORMAT( 31201401 x0 1301 XoFSeQe xs l20exeF SoCs exe SeQe i xsl Pedr i Ker & 
16° L1XeF70ele1XsF3eCa i XaF4el) 
17° CALL STAT(I) 
18. CALL EVIL(TIGUTs I, 1BADsKGCAB, KGMBG,KCYRE, KGHME) 
19° IF (YBAD114s30,65 
2Ce 65 166084 
2ie RETURN 
22° 3¢ RLAT#OLAT#(100/57+29578) 
23° RLONGSCLONG*(100/570e29578) 
Z4e FLT (1) sKGRF 
e5e FLT (2) sCOFY 
26°e FLT(3)=sCOM 
27e FLT(4)aCIS 
286 FLT{5)8DIR 
296 PLT(6)sSPD 
3Ce FLT(7)sCATA 
31ie KGCAGSKGDA 
32° KGr86eKGMB 
33° KGYR@aKGYR 
346 KGRM6sKGHM 
356 3 SELECTING CATA POINT TO BE PLOTTED 
36° IF (Nx)110212C2110 
37° 110 CATAXsPLT(NX) 
386 12C CATAYSFLT(NY) 
39° CATAZsPLT(NZ) 
4C» CATAWSPLT (NW) 
41e RETURN 


4ee END 
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37° 
38° 
39° 
4Ce 
41e 
4ee 
43° 
44e 
4Se 
460 
47 
4Be 
4Ge 
5Ce 
51. 
52° 
S36 
Bye 
556 
566 
57° 
5Re 
59° 
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SLERBLTINE GETP(ITAPEsNxaNVaNZaNWeCATAXsCATAYsDATAZ, DATA, 
1 RLAT,RLONGs KGOA,KGMB,KGYR,KChM, JEBC) 


C SLBROLTINE GETF» FOR INPLT OF SEISMIC REFRACTION 
C PROFILE DATA AT SFFMT FORMAT 
. | 
C SShk(3c) LP T6 READ SPFMT CATA 6A ThE CARDS i 
C $§8h(33) LF TA WRITE SFEMT CATA 6K ThwO8 CARES ; a 
C 
CIMEANSION FLT(15) »IDESC{6) 
CATA KSeNEWONASSI9 teh "g's '/ 
C 
C LSES SLBROLTINES EVIL, ISW, STAT sCMTOR 
C 
Cc TRERESESESC ERE RSE RT ERE CESS ERE SERRE RRR ER ESTER ESE RS ESS 
Cc PRERERESES ERE REESE SEP STEEP EEE ESE PEPE EEE EERE SESS 
a 
IIN ® 105 
IIOLT =» 108 
KGCA8¢ 
KGMOeC 
KGYRsC 


€ 
C ReaCING U BF TERENTE WARLC SEISMIC REFRACTION COMPILATION 
10 CONTIALE 
IF (1SW(32))15512015 
te REACCITAPE,SSC)IIRECL a ISTAsKEYoLAToL ATMs KAS,LONG, LOM, 
1 KEW et oKh a sea Ken vse K3 phy Kos Sa KS Oe KO a7 aK7 JS KBs 
2 IMANT,NELEVsNysNeaN3eh4oMET, TYR, ICESCACINESSTHI Ks CRVNe 
2 WGTNsAVWTNs CRVWs WGT Wy AVATH 
9SC FORFMAT( 1a lasAlsleslesAlolaslesAlts allesgla)sleslas4lip 
1 I4sleeGACoSe4eqoF3eleepbeosixrF3elsecreecs 5x) 
C6 TA 18 
15 REACCITAPE, 994) IRECysISTA,KEYs LAT» LATM,KNS, LONG, LOM, 
KEWoe de KL ewer Kea ssa KZ awh sk ea Ss KSawbs KGa sK7 9 J80K8s 
IMANT,NELEVs Ny sNosN3eh HaMETAIYR, ICESC,CINE,STHIK,CRVN, 
WETN, AVWTNa CRVWe WGT WZ AVATH 
991 FBRMATV( Ido l4sAlglesnTesAlalasepAls alley la) ,lesT4s4lis 
T1slas1oxs6AeeereersFaelser6eceixeraelscréeos5x) 
18 CALL STAT(T) 
CALL EVIL(IIOLT, Is IBAC,KCA,KMO,KYR,ISTAG) 
IF (IBAD) 105 2Ce 900 
C CRKECKING IF KEY 8 g 
16 JF(KEY*eK9)2C0,10,2C 
ec ELEVaNELEV 
ELEV®ELEV * Ord] 
VP ANTSIMANT 
VMANTaVMANT # Oot 
KGRKMsISTA 
5¢ IF (N102) 7096C,70 
C SEA SEISMIC PROFILE 
6C VELWs 105 
FEIGTaeELEV 
G6 T8 80 
C LANC SEISMIC PROFILE 
7¢ «=6VELW® O°0 
FEIGTSELEV 
C MAIN FLETTING LO6P 
8C RLATM = LATS 


GAD 


as 





Sa ee ea 


6Ce 
éle 
6e° 
é3e 
64e 
65e 
obe 
67° 
6Re 
6Se 
7Ce 
7ie 
7ee 
73e 
74e 
75° 
760 
77° 
7&e 
7Se 
ace 
aie 
&2e 
&3e 
B4e 
&5e 
BEe 
&7e 
&8e 


Sé 


56 
58 





393 7 


RLey ss Ler 

RLAT eDMTAR(LATSRLATM) 

RLONG sDMTB8R(LANGsRLOM) 

IF (KAS®NNS)S4, S2s 54 

RLAT s #RLAT 

IF (KEWeNEW 158456058 
RLO@NG = #RLONG 1% 
PLT(1)eISTA i 
PLT( 2) sKEICT 
PLT(3)eVMANT 
PLT (4) eOIKE 
PLT(5) sSTrRIK 
PLT(6)sCRVA 
PLT(7)ewWGTN 
PLT(8)@AVWTN 
FLT(9)sCRVwW 
PLT(10) 8WGTh 
PLT(11)8AVhTh 


SA Piri BAe Oe ne 


C SELECTING CATA TO BE PLOTTED 


11¢ 
1e¢ 


gcc 


IF (NX)11041204110 
CATAX@FLT(NX) 
CATAYsFLT(NY) 
CATAZSPLT(NZ) 
CATAWSPLT (Nh) 
IE6CsC 

RETURN 

1E6Cs84 

RETURN 

END 
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i 395 3 
ENTRY P@IATS3 | 4 
cocce GETP 3 
: EXTERNAL SLBPROGRAMS REGLIREDS i 
OMTSR EVIL Ish STAT F3101 Ft103 F105 SBCDRE/D > 
SIOCATA SI@LUSA 9ITBR SSETLPN t 


FIGREST ERROR SEVERITY: o (NO ERRORS) 


eee 
CN ee ee eee os ee 





Cec hEX 
wORCS WORDS 
eecee eneega 
GENERATED C8CE: 239 co12e 
C8NSTANTS3 4 coco4 , z 
LOCAL VARIABLES: 80 cccsc 
TEMPS: 17 CCC11 


TETAL FRAGRAM: 400 coisc 
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396 
te SULBROLTINE GETS(ITAPEsNXaNY sNZaNWoCATAXsCATAY sDATAZ,DATAW, 
j ae 1 RLATSRLONGs KGCAsKGMO,KGYR,KCHM, JEBC) 
| 3 Cc VERSI@N 28 MAY 19740 Ce DEANs FOR 67 GRAVITY FORMULA 
; he C VERSION OF 22 YAN 1972, CORRECTING RETURN INDICATION OF FOF 
\ Se C VERSION @F 19 JAN 1972, ADDING UNCORRECTED DEPTHS TE SELECTIAN vATTAD WS 
; 6e C. 
i 7»  C SUBROUTINE GETS, FOR REACING SEAG, FORMAT 
¢ Se Cc 
| ge CIMENSTON PLT(2c) 
| 1Ce CATA IFLAG/O/ 
j ile IF (IFLAGeNE*C) GO TO EC 
12e IFLAG = 1 
13° C 
+ She C SSW(3) LF Te ADD CURRENT VELECITIES T6 SHIP S VELECITIES 
15° Cc ssw(i2) UF re LIST CATE IDENTIFICATION 
166 Cc 
17. c LSES SLBROLTINES ENDIG(CLMMY)s SHTVs EVIL, STAT 
186 Cc ASSUME STAT INITIALIZEC IN MAIN PROGRAM 
196 ¢C 
ece OLTPUT ' GETS VERSION 28 MAY 1974 FBR €7 GRAVITY FERMULA! 
21° 10 II6LT = 108 
226 IEeC#C 
23° 5c CALL ENDIO 
24e Se REACCITAPEs12) I RECLsKGCAsKGMOeKGYRaKGHMs IDIFs 
eSe 1 RLATsRLONGsKVNsKVEsK9774 LOGRaKFA, KEG, KCVN, 
260 2 KCVEsKCOMsMTOCsMTsMAGI1 sMAG2,KETVE 
27° 12 FORPAT( lye3lovlas lav 2FSe6salSel3el4e515e 
28e 1 [3-2eTisl4s18) 
296 CALL STAT(I) 
30° CALL EVIL(IIOLT,1,1BAC,KGDAB,KGME6,KGYRE,KGHME) 
31° IF ¢]BaC)50+53,65 
326 C COAVERTING T8 FLOATING PBINT 
33° 53 XKCOmM # KCOY . 
34e KKFASFLOAT(KFA) #004 
356 XKEG@FLAAT(KBG) #002 
366 VNSFLOAT(KVN) #0001 
37° VESFLOAT(KVE) #O001 
38- IF (IREC1©1) 55,56,55 
39° SS IF (IRECi*2) 60270260 
406 
i é CONVERSION BF 4930 INTERNATIONAL GRAVITY FORMULA Te THAT OF 
420 Cc TRE 1967 INTERNATIONAL GRAVITY FORMULA 
43° ¢ AND NEw GEGDETIC REFERENCE SyYSTEMe 
he C 
45e 56 CONTINUE 
460 TO8GR = JAGR © 4HeC 
476 CG = 3e20(1366#(SIN(ABS(RLAT))*#*2)) 
4Be TF CXKFA®9S9C0¢0) 57,5258 
49e¢ 57 XKFA @ XKFA + DG ' 
50° 58 IF(XKBG"980°0) 59970970 
Sie 59 XKBG s XKEG + 0G 
S26 Ga Te 76 ; 
53° 6c IF (IREC1*9)50262250 
Se 62 REAC(ITAPEs64) RECS, 12,124, 1 TEST 
55° 64 FORMAT(110213,14) 
566 IF (ITEST#6563)589s865s58C 
57. S65 WRITE(JIOLT2570) 
58e 57¢ FeRMAT('EOR') 


59° G8 T6 50 
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6Ce 58c IF CITEST#6665)68265,68 ’ 


éle 6S IJIeE6Csy 

eee RETURN 

63° 6@ WRITE(IIOLT269) 

64e 6S FeRMAT('IREC1 #9!) 

6Se Ge T8 50 

66¢ 7c «ITF CISW(42))7390730714 | 
67° 71 WRITECLIOUTs72)KGD A, KGMasKGYR,KGHM | 
6860 JE FO@RMAT( CATE s's313015) ] 
69*  . 73 CONTIALE 7 
7Ce C LSE CLRREAT VELOCITIES | 
7le IF (I1SwWl3)) 80,8075 

7ée 7& VA8SVN@( FLOAT (KCVN) #001) : 
73° VE SVE+(FLOAT (KCVE) #0¢1) 
The @c KKao | 
75.6 CaLL SFTV(VN,VE,SPEED,XREAD, KK) | 
76e EGTysFLOAT(KETVE) #00d | 
77.6 TYAG# (MAGI #190000) *MAG2 

7&e KMAG2s(MAGE/1000) #100C 

796 XMAGsMAG2°KMAG2 

8Ce XREG#Ce0 

ale XKRES80 00 

826 XLOMsKCOMeMTOC 

83° XLOF sXLOM*C 054681 

Bue PLT (1) sKGKM 

BS PLT(e)sXKCOM 

86° PLT(3)@XKFA 

&7e PLT(4) #XKBG 

&8e PLT(S)sSPEED 

&Ge PLT(6)sXKEAD 

9Ce PLT(7)sE6TV 

91° PLT(&)sMT 

Ge6 PLT(9)sxMAG 

93° PLT(10)*XREG 

346 PLT(11)8XKRES 

956 PLT(142)s°SPEEC 

366 PLT(13)28°XKCDm 

976 PLT(44)8eEBTV 

95° PLT(16)e*XREAC 

10Ce PLT(17)8TMAG 

1016 PLY¥(18)*xXLOM 

102° PLT(19) =8xLOF 

103° KGCABsKGCA 

104° KGV66 #KGME6 

1066¢ KGYR@8KGYR 

1Cé« KGRMASKGHM 
107-6 C CrECKING FOR INVALID VALUES 
108° IF (Nx#2)10596072606 
109° 6C6 IF (NX*13) 60526072605 

11Ce 6C7 =JF(KCOM)1C5,10.105 

111° ecS IF «(Nx92)105261026158 

112° 61c IF (KF A#99#C)105210010 

113° 61E& IF(NKe4)16526209640 

114s 62c IF (KBG#998C1105,10,10 

115° 64c IF (Nx#17)105%65c¢21C5 

116° 65c¢ IF (¥AG1)1C04102105 
1176 C SELECTING CATA T@ BE PLOTTEC 

1186 405 IF (NxK)11001é20s110 


119° 41C CATAXsFLT(NX) 
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DATAY®sFLT(NY) 
CATAZsFLT(NZ) 
CATAWSFLT (Nw) 
BLTFUT DATAX 
RETURN 

END 
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PC NE Us SS Se 


INTRINSIC SUBPROGRAVS USED! 
abs FLOAT SIN 


EXTERNAL SUBPROGRAMS REGLIREC: 


ENCI6 EVIL [Sh ShTV STAT 
Fiic4 Fics Fsicé F3108 9BCDREAD 
SITOR SFRINT SRT8] 9SETLFN 9SIN 


ALMBER BF X CaRCS JGN@RECE 1 
RIGREST ERROR SEVERITY: O (NO ERRORS) 


Cec hEX 
wORCS WORDS 
eeene enzcee 

GENERATED CODE: 363 Cc16B 
CONSTANTS? ic COOQOA 

LOCAL VARIABLES? 66 coc4e 
TEMPS: 17 cOcli 


TOTAL FREGRAMS 456 ccice 


F%101 
SECDWRIT 


F 
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2iC 
END 
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T8L 


e 


SIBDATA 





SLERBLTINE GETST(ITAPESNXaNYaNZgNWaCATAX,CATAY sDATAZ,DATAM, 
1 RLATsRLONG ee CAs MO, UY RackM, LEBC) 


VERSION OF 30 YUNE 1971 
CUMMY ROLTINE WHILE AWAITING A WORKING VERSION 


RETURN 
END 
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ia Ee en ee, 


ETAT TFET IN ANNE Soe ONLOAD R NTS ANT RSE ROMER MNS YS ETS INT NMP TS ANY MLE PNT ET OR TT EEG OS SED, 


403 ; . 4 
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1e SLEROLTINE GETVCITAPESNXyNY ph ZpNWsCATAX,CATAYsDATAZ, DATAW, 
Ze 1 RLAT,RLONG,KGDA,KGM6,KGYR,KGHM, JEBC) 
ge C VERSION BF 29 YUNE 1971 ' 
4e C 
Se C SLBRGUTINE GETY, READS WARLC VALCANGE CATALBGUE COMPILATION 
6° C 
Je CIMENSTON PLT(5) 
&e CIMENSION 10(5) 
Se 4CC IIN = 105 
1Ce TIO8LT «= 108 
11e IE60aC 
lee ' KGCAsQ 
136 4ic CONTIANLE 
14e REAC(ITAPEs74) LAREAs ICOM, ISUBA, IDASks INOgLATsRLATM,KNS» 
15° 1 LONG» RLOMsKEWs THEIL Te IPTs PAGES! IYYFE, ICHEMs ID 
16° 74 FORMAT(I3eALsl2cALeleayxslesFSeteAerxelagsFSeesAteixe 
47° 1 15 1Ms lee X01 30 1XaAge yXeA12 15XsSA4) 
18° CALL STAT(I) 
19° CALL EVIL (LI@UT» 1» IBACskGDABsKGMBE,KGYRB»KGHME ) 
2Ce IF (7B8AC)410253,900 
21° 53 CONTINLE 
22° KGMO=IAREA 
23° KGYR#ISUBA 
c4e KGHMaINO 
256 CALL RAVIN(LATsRLATMSKNS pL ONG, RLOM, KEW,RLATsRLENG) 
2660 KGDAB#KGDA 
e7e KGM688kKGMO 
28e KGYR@aKGYR 
ege KGkMO@ sKGHM 
30° ' PLT(1) # INO 
3i* PLT(2) # IFEST 
326 PLT(3) = (IPT#1000) + IPAGE 
33° IF (NX )802 852806 
34° 8C CATAX#FLT(NX) 
ase 8&5 CATAyaPLT(KY) 
; 366 DATAZsIHE'T 
376 DATAWSINE 
38 RETURA 
39° soc Ie60s4 
40° RETURN 
44° ENC 
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CEC HE x 
wBRCS WARDS 
eevee ee2e8na@ 

GENERATEC C8DE: 140 cocsc 
CONSTANTS C cococ 

LOCAL VARJABLES? 35 co0ce3 
TEMPS: 17 coci1 


TOTAL PROGRAM; 192 coccc 
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SUBROLTINE GETX(ITAPE,NXsNY,KZ,NW,CATAX,CATAY,DATAZ,DATANW, 
1 RLATsRLONGs KGDAs KGMS8skGYRakGhs EOC) 


VERSION 8F 26 SEPT 4972+ CUMMY ROUTINE 
SLEROUTINE GETX, FAR READING VARIABLE CATA INPUT, WRITE YOUR 
BWA GETX ROUTINE 
CIMENSION PLT(10) 
TIN = 465 
IIOLT #108 
IE@De¢ 
KGCAs0O 
KGMO8C 
BUTPLT ' SUBROUTINE GETX IS A DUMMY ROLTINE, CALL EXIT! 
CALL EXIT 
RETURN 
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SUBROUTINE GETY OF MARCr 19,1972 


C 
C MOCIFIEC MARCh 39,1972 BY FOLINSEEE T@ READ NEW CGSDATA EPICENTER 
Cc 


1 


FORMAT = OALY REACS IN Tre NECESSARY VALLES 
SULBROLTINE GETY(ITAPEsNXaNYgNZaNWsCATAX,CATAY,DATAZ,DATAW, 
RLATsRLONGs KDA, KMB,KYR,KHM, JEBD) 


C Sh ANC we WERE MASDE INTO INTEGER S FOR COMPATIBLITY WITH THE SIGe7 
c LSAGE BF ALPFA NUMERICS 


400 


ac 
8s 


scc 


INTEGER SN wE 
CIMENSION PLT(S) 

CATA IFLAG/O/ 
IFCIFLAG*1) 4007410,40C 
TIN « 105 
TI6LT = 108 
IFLAG#1 
KL #0 
CONTINUE - 
TE@DaC 
CONTINLE 

READ(ITAPEs68§) 


* KDA, KMA,KYRy KRM sChaTsKSNsCLON,KWE, CEPT, AMAG 


CALL STAT(I) 
CaLL EVIL (JyeUTs 1, 18AC,KGDAG,KGMB6,KGYRE,KGHMA) 
IF ¢ 18AD) 411,5329CC 


CONTINVE 

FORMAT (6xeleslosloslasgxe FSeSsALeFbezeAqsF3eQeF 302) 
KGCAGSKDA 

KGMBRSkMe 

KGYROsKYR 

KGHMO BKM 

CaLL CNAV(OLAT, KEK, COLON, KHE,RLAT,RLONG, KL) 
FLT( 1) SKDA*10COO+KME*1OC+KYR 

PLT (1) 8(MTR#1000)4(KDA#1C) +1Y 

PLT(2) sOEFPT 

PLT(3) sAMAG 

TF (NX) 800852 8C 

CATAX#SFLT(NX) 

CATAYSPLT(NY) 

CATAZsCEPT 

CATAWSAMAG 

RETURN 

1E6C#1 

RETURN 

EAC 
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SUBROLTINE GINOT(ITAPEs STAPEs KKaKGCA,KGMG, 
1 GYR, KGRMs IDI, I1SBRC,RLAT,RLONGsSELEV,kKS77498SG, 
2 JOERSPADDRe TEs 1ELCs TSE ARE As IREGCS IPF, LAs IF BC) 
VERSION 8 MAY 4975, AOC INITIALIZATION ZER@S AND 
QUTPUY COMMENTS ON GRAVITY FaRMULA 
VERSION OF 14 DEC 1974, TO ADC HANCLING OF PROV& BUTPUT 
VERSION i OCT 1974, Fak 1967 GRAVITY FORMULA 
VERSI@N OF 26 WULY 49792 START CONVERSION TO 4967 G FARMULA 
VERSION OF 26 APR 72 
TEMPORARY MODIF LUE T8 BACKWARD COCE / MANAGE 
VERSION OF 27 DECEMBER 74 
VERST@N BF 22 DECEMBER 19713 
GIN@T VERSION NOV £201973 
INPUT »« NEW GSUM FARMAT 8 
PREVIOLS GSUM FORMAT 
+ 9 KEYS $ LTKEY » LGKEY » IAKEy 
QUTPUT e NEW GSUM FeRPMAT 
MODIF @N NOV 1271971 BY MONGET veMe T@ JACLUDE 3 
© USE OF DATA LOCATION TABLE 
e USE OF LABEL TAPES 
MOC AUG 16 1971 BY FELINSBEE TO CORRECT ERRBR BN CALLING ARGS SF GBLK 
VERSION OF wUNE 29571 DOES NOT WRITE EOF O@NTS BUTPUT DEVICE 
MeDIFrED WUNE 2a TA ReEAll( 8 WRITE) BLeCKeD DATA BY A FOLINS8ce 
VERSION Of APRIL 46 TS OpTIONALLy SUPRESS REWIND OF ITAPE AND JTAPE 


SLBROUTINE GINOT, FAR GSYM FORMATTED DATA 


VERSION WI7h DESIGNATION BF INPUT ANC BUTFLT MAGNETIC TAPES 
BY USE OF SUBROUTINE MOUAT 


SSW(ya) UP Te L1Sy DATE TDENTIFICATION 
sgh (28) UP re ouy Vr Qk H br gPeeD PRyN7ER ONLY 
$S¥(27) UP T@ SUPRESS RewW[ND OF TAPES AT START OF JOB 
3 SUPRESS REWINO 6F IT APE 
#2 slP Ess REM INE OF dts E 
#9 SUPRESS RwIND Of perk 1 Ape AND Tape 
SSh(29) § y © 8 READ AND TEST F : setetTe Bae CODE 
j $7 
=» @ « TO READ ANC TEST FOR Selectel soURCE cBDes 
; iow NUMBERS T@ 8 SKIPPEC 
pews 4 ee ieuy AG dy ed 
s P eurF AT A 
Sseino) UP FoTeesebes with a8tns6 C81nc our 
§ © PR yr 
er PReCg ss Wiyk BAUNCS USING yee Cara LeCaTrOh TABLE 
SSwr6o) Up Te P fess euey DATA WITH lr Cua4e ABSTRACTER OUTPUT 
Biles 1) EPLACE FA, BG, ELEV,LAT,LONG WITH AVERAGED VALUES 


USES ENDLO(DUMMY), EVIL, STATs ISW 
ASSUME ys ANO Star INtyIAb1ZeO IN Marh PRAGRaM 


CIMENSTON IDTING 39), 18K lac) se ITK (20) 4 IDENS (90) » IDESC( 47920) 
CIMENSION 10707 (0) BK (BE) eUTK (20) DENS (20) » WDESC(1 752 ) 


DIMENSION PLT 20)s1A(35) a TAPMT (9) so TASH (35) e1SRC( 16) 
CATA ITERIsITERO/'ELTP', ETP! 








G1NB0000 


I 


GING 9040 
GIN60050 
GIN80080 
GIN8Q090 
GIN80100 
GIN80110 
GIN89120 
GINB0130 
GINB0140 
GIN@0150 


GyNe0180 


GIN60240 
GyNe0250 
GIN80260 


GIN801390 
GrN60200 


GINGO210 


Gjngoe70 
GIN8o280 
Gy\e0290 
GIN60O300 
G1N80310 
GIN69320 
G}N60330 


GIN60360 






ele 
be 
63° 
Eae 
65.6 
66¢ 
676 
68 
69° 
7coe 
7le 
72¢ 
736 
The 
75¢ 
76e 
77¢ 
The 
79° 
8Ce 
81- 
B26 
83° 
Bhe 
85« 
86« 
87° 
BRe 
89« 
90° 
Sie 
9ee 
93° 
Sue 
95° 
S60 
976 
98+ 
95° 
100- 
101° 
1026 
103-6 
104 
105-6 
106° 
107° 
108+ 
10S 
110° 
ile 
1126 
113¢ 
114° 
113° 
1166 
117° 

































IF (KK) 42004002410 
Cc 
fi couse GSUM IAITIALISATION LA@GIC 
c 
&OC TIN ® 405 
Tr6uUT » 1C8 
TFUNS {C6 
ICISC = 100 
CEGRAs10745329E°2 
RACEG#57+29578 
C NEF ® NOe BF FyLeE NOW BEING PROCESSED 
NEF 2 1 
IFILE = 3 
Cc NRECT ® N@e OF RECORDS NOW WRITTEN BN PRESENT BUTPUT TAPE 
NRECT » NZERB 
¢ ¢ 


BuTFELT 'GINOT OF 8 MAY 1975! 
MAXCT » 125000 
Ikfe1ci1 4 1042100 
Te (TSw(40) eNECCICALL ENCLT( Ys CLAT@sCLABE,CLOLEsOLORIs IDL» ILIs0) 
* 5 CALL SEYTSKP(INDICA) 5 IDLTsO : 
* § NEF®L 3 IFILESJet 
OUTFLT NEF IFILE 
NZERO80 
KGDABsNZERO 
KGMBBSNZERO 
KGYR@sNZERO 
KGREM@aNZERB 
IRECi = 1 
IREC2s2 
IRECIN * 0 


esusne ChECK SSW(o9) TO SEE IF SOURCE CeCe NUMBERS 
eeneee ARE 16 BE READ FER DaTA SELECTION 


NAAN 


bO7 IF (ISW(29) eEGeo)GS TA 44cd 
REAC( T1Ns9CO) {SRC 

gcc FORMAT(1615) 
IF (ISW(Z9) eEGeL WRITE(TIOLT»,SI2)ISRCIGH TA 1405 
WRITE (J16UT2913) 1SRC 

$13 FORMAT(1HOs1CX,1SKIPPEC SOURCE COCES = 1,4615) 

si2 FORMAT(1HOs,1CX, SELECTED SBURCE COLES = ',1615) 


C evcene 


1405 IF(ISW(4Q) eNEeG)G8 TS 72¢ 
IF ¢TSwW(30) 40424049726 


404 wal 
BOS READ (TIN, 406) IOTIN( SI, TAK (Vda TK Us TOERS (Ds 
1 (IOESC (Kay) eKein17) 

406 FORMAT (Abs 4 xs Age iXol§adx213917A4) 
IF(IDTIN( S)oNECITERT) Jaueys GB TE 405 
NEF el 
IFILEs, © 1 
OLTFUT NEFsJFILE 

720 IF ¢TSW(31))408s4C821410 


408 vl 
4OS READ (LIN, 906) [OTOT( Is eBKlodayTK leds ulENS( J), 





GIN60370 


G1N60380 
GIN603S50 
GIN60400 


G1N80410 


GyN60530 


GrN80520 
GIN80540 
GIN80430 


GIN80470 
GIN8Q480 
GInNe0490 
GIN6OS00 
GIN80510 
GIN@0550 


GIN@0560 


GING0580 
GIN@OS90 
GrNeoeco 
GINBOE10 
GIN89620 
GyN80630 
GING0640 
GyNE0650 


G1N80670 
GyN80680 


hn a ae 


hata 





412 
4 (JOESC tka ydakeded7) GIN80690 j 
IF (IDTOT(w)eNEsITERO) wewel; GO TE 409 GIN80700 q 
NENTS} G1N60710 : 
WFILESy «© GIN60720 4 
BUTFUT NEMO» FILE GIN80730 
441c IF (1SW(30))44120141201414 G1IN60740 | 
1412 CONTINUE GIN80750 4 
IF (1SW(40) eEG 00) GOT88I0 i 
REAC(ICISC 2496) IDTING 2a TEK( a oT TK( 4), TDENS( 4), Fi 
* (IOCESC(Ks1),Ke1017) 2 
Bic IFC ICTIN( 1) eEGel TERT) GOT61444 4 
CALL MOUNTCSTAPESIDTINGG)) GIN60770 | 
WRITE (TIOLT21413) IOTIN(S)sTBK(L)sITK( 1) 2 ICENS(1)» GIN@0780 1 
1 (IDESC(K,4)2K04017) GIN80790 ; 
1413 FORMAT (1XsA4,1X,ALa1X0 101% 13,17A4) GINB0800 j 
IF(ISW(27)eEGey eBRe $Sw(27)eEGeS) GOTE 2444 GIN6O810 4 
REWIND [TAPE 3 GIN80820 ; 
2414 CONTINUE GIN80830 j 
1414 TF C1SW(31))44160141691418 GIN@9840 
1416 = CANTINLE GIN@0850 
IF(IDTOT(L) eEGeITERS) GO TE 4418 GIN89860 
CALL MOUNT(VTAPEsIDTOT(1)) : G1N@0870 
WRITE (TE@UTI1413) IOTOT(1)sJ@K(4)2uTK(1) 2 yDENS (1), GIN80880 
1 (JDESC (Ko 4) 0K84047) GIN60890 
IF (1SW(27) eEGe2 eBRe 1Sh(27) e€Ge 9) Ge 16 1418 G1Ne60900 
REWIND (TAPE GIN80910 
141g CONTINUE GIN809920 
RETURN GIN60930 


C 
C wacceee GSUM INPUT LOGIC 
Cc 


41¢ 
Sc 


Sé 


1 
2 


1 
2 


101 
710 


onan 


53 


60C 
601 








CONTINVE G1IN80940 
CALL ENOI6 GIN6Q950 
bes tentag) eect) G@ T8 100 GING0960 
(TSW(40)° E*0} 
Tee kB" [Tape E14 CLT ESORC, KeDArK MBakcyRs kG, 
DLat DLONG, 1p eee K 77,8SG, [DEP, A,BG, 1C, IELC, IGC, 
RFA, EREGC, IFFC, fA, IFACSLTKEY sbKE Ys I AKEY 
G8 T6 i¢4 GIN@1020 
CANT INCE : GIN61930 


READ(TIN 4469 I RGIe aoa, 10ch FA, 86,40, Tek, 


oyate OLON gLeV Leve K977, @ESG, [DeP,Fa,8G,7C, 1ELC, GC, 
RFA, IREGCy TEFC, tAy IFACOLTKEY sLGKE Vas LAKEY 
CONTINUE GIN@1090 
CALL STAT(?) GIN61100 
CANTINLE 
Call EVIL(IIOUT, 1, 1BAC,KGDAG, KGM68,KGYRG,KGHME) GIN@q410 
IF (rBaQ) SC, 53, 575 GINO1120 


CHECKING IF TREC *® 2 OR 4 


IF (IREC4eNEoo 6 76 6C . 
IF{IRECINGEG eG) Surpur PNpLT ALREADy IN 1987 GRAy FORMULA! 


asa? : 1 


IP IRECi #1 60126109601 
IF (IREC, EG eS) KKegsRETURN 


IF (IREC1¢EG*S)KKa9IRETURN 
G8 T6 §0 


Ln eae eee 


180° 
181. 
18@¢ 
183° 
1846 
185° 
186° 
187« 
188+ 
189+ 
19Ce 
191° 
192+ 
193° 
1946 
195¢ 
196° 
197¢ 
198+ 
199¢ 
e0ce 
201¢ 
2ce° 
203° 
204° 
205° 
206e¢ 
2076 
208 
209° 
21Ce 
eile 
212° 
213° 
2ise 
215° 
216° 
217° 
218: 
219° 
22ce 
22ie¢ 
e2e° 
223° 
224e 
225° 
226° 
227° 
228+ 
22396 
230¢ 
231° 
232° 
233° 
E34e 
2356 
236° 
2376 
238° 
239° 
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CONVERSION OF 4939 INTERNATIONAL GRAVITY FORMULA TO THAT OF 
TRE 1967 INTERNATIONAL GRAVITY FARMULA 
AND NEW GEBDETIC REFERENCE SYSTEM 


aaAAaAN 


61c C6NTINLE 
TF (IRECINeEGeg) BUTPLT 'CONVERTING TY@ 1967 GRAV FARMULA NEw! 
yoga = 1 
KK s 
CALL 986 (K977,0BSG,G6BS,KK) 
GSBSsGBBS+14e0 
KK s e2 
CALL BEG (K977,68SG,sGABSs KK) 
RLAT = OLAT*DEGRA 
DGsde20(43e6e(SIN(ABS(RLAT) )##2)) 
IF(FAe990¢0) 61126427612 
611 FASFA+DG 


612 1F(BG=*990¢C) 613270070 ° 
613 BGebG+CG 
G8 T8 76 
575 IF (NEF @ IFILE) 576s 5772 577 GIN81240 
576 NEF = NEF * 1 GyNe1250 


IF (ISW(40) eE Ged) G8TA82C 
cedGt re tac eae) {OTINENEF )5 LK (NEF), ITK(NEF),g IDENS(NEF ), 
* (IDESC(KsNEF),K81,17) 
820 CALL MAUNT(ITAPE, IOTIN(NEF)) 


WRITE (LIOLT2 4443) TDOTIN( NEF), TBK( NEF), ITK(NEF ), IDENS(NEF Dy GIN814270 

1 (ICESC(K,NEF),Ke1,17) G1Ne1280 

REWIND [TAPE G1N81290 

Gé@ T6 50 GIN61300 

Cc ENC @F INPUT CATA, REGLIFED NO» GF FILES NOW PROCESSED GINO1310 
577 KKag a RETURN 

70 «TF CUSW(12)173073071 GIN81390 

74 WRITECTI@UT, 72) KGCA,KGMG,KGYRsKGHM GIN61400 

72 FeaRMat('DATEs', 313,15) GyNe1410 


73 JF¢USW(25) *EGeC)G8TE173C 
IF (ISW(29) eEGe2)G8T8470C 
Cc ry 


C ecceee PROCESS BNLy SELECTED SOURCE CODES 
Cc 
081650081216 
IF ¢ISRC(J) eEGeQ) GATB50 
IFC IS@RCeISRC(J)) 1650217301650 
165C CORTINLE 
GSTa5¢o 
c 


C eccnne IGNORE SELECTEC S6URCE C8DES 


c 
170¢ C61710u"1216 
IF CISRC(U) eEG06)G8TA1730 
IF ¢TS@RC#ISRC (J) 9171025001710 
171C CONTINLE 
C 


Cc eereee 


Cc 
173C RLATSDLAT#CEGRA 
RLONG © DLONG*DEGRA 
SP EEGWI GOT 51828480 806 


C Use Cata GNLY FOR YFFC © 4 (yee ABSTRACTER BUyPUT) GyN61440 
8Co abi tevecsy6e;003 066 GIN81450 


801 CONTINUE GIN61460 











414 4 
3 240° IF (1SW(61))10921092105 ¥ 
esi C SET FA, BG, ANC ELEV = AVERAGED VALUES FROM ABSTRACTER BUTPUT GIN@14480 g 
426 C Ser LaT ANC LONG Te ValVES aT CENTER OF GRIC AREA G1NO1490 4 
243° 108 C@NTINLE GIN@1500 4 
Z44e D6 8oe WK91s35 GI1N61510 . i 
2456 80E IASH(UKISISL( IAC UK), #24) G1N01520 : 2 
z46e CALL BEOe ESM: LACT RS) GIN81530 
247s DECADE (35.8¢3,1AFMT) CLAT»CLONG, AKEIGT, KAFA,KABG GIN®81540 
248e 8C3 FORMAT(2FS9*6,F700s215) G1N61550 
249° "  -RLATSCLAT#OEGRA 3 
250° RLONGsCLENG*DEGRA ; 
2516 APFA®FLAATI(KAFA) #001 G1N61580 ; 
2526 ABGSFLBAT(KABG) #001 GIN81590 i 
; 2530 FASAFA GIN61600 i 
2 2546 BG=ABC GIN61610 , 
255° ELEVsAREIGT GIN@1620 4 
2560 NUM@sYFBC ° GIN@1630 4 
257° 10S CONTINLE GIN61640 3 
258+ 418 CONTINVE G1N61650 3 
2596 KGDABsKGCA GIN61660 
260¢ KGMOA62kGMS GIN@1670 
2616 KGYR@=KGYR : GIN61680 
2626 KGHM6 =KGHM GIN61690 
263° RETURN GIN81709 
264 Cc 
265° C weccceereene GSUM BLTPLT LOGIC 
266° (2 
267° 42c CALL ENDI6 G1IN64710 
268° CLAT#RLAT*RADEG 
269° CLONGsRLONG*RACEG 
27Ce PLATBDLAT#SCe § LTKEY#PLAT 
2716 PLONGSCLONG+18C>e 3 |. GKEYSPLENG a 
2726 CALL AREAK (OLAT,DLONGs IAKEY) , 
273° IF (CISwW(34)¢EGey) G6 Th 410 GIN64720 4 
274 PAL) Cal Se eh ee }RE 2sC 
275° F(ISW(26)eEGgey) IRE BecuuT APE e108 
276° WRITE (TAPEs 11) IREC2s ISORCeKGDAsKGMOsKGYR» KGHMs 
2776 1 CLAT,CLENG,ELEV,K977,4BSG, ICEP,FA,2G,1C, ELC, 1GC, 
278: 2@ RFA,IREGC IFFCe TAs LFSC AL TKEY,LGKEY, TAKE Y 
273e 11. FARWAT( 12 t4eglaelas2pSehog e2elgepbeaslSearbeqarhegs 
280° rT alarF Gs qr lyetara5AgesxXelyselge la) 
2ale NRECT = NRECT @ 1 G1N81g,00 
282° Te (NRECT © mAxcT) 859 Sos 96 GIN81810 
283° as RETURN GIN81820 
284° 110 03=— CA@NTINLE G1IN81830 : 
285° WRITE (IPLN» 469) IREC2,1SORC,KGCA,KGMG,KGYR,KGHM, ’ 
286° } Ober a teen teane AO Sigzcrvuptce, eo Ag hes tog bby TSC, 2 
Te BEAL ERESC IFFCs I Ast OG AETKEY,LGKE Ts TAKEY 3 
288° 469 FBRWAT( 1 thegige las apSeaoe epalagsréeaelSsapGeyaphogs 
289° 1 2leeFGeg/qoxelysloeaSAgeyXolysalaget2y ‘ 
29Ce RETURN GIN61870 
291° Sc NRECT » NZERO : G1N81880 
2926 WRITE (IY6UT, 91) GIN61900 
293° $1 FORMAT (I'MAXCT BUTFUTt) GIN81910 
294° ENO FILE wTAPE GIN83920 
295° REWINC WTAPE G1N81930 
296° NENCSKENC 44 GIN81940 
2976 JT [NENG ast tog 19902998 099° G1NO1950 i 
2986 99¢ ALL MOUNT ( TAPE, IOTOT(NENC) ) GIN81960 E 


299° WRITE (1IOUT2 4413) IOTOT(NEND) s wAK(NEND) ywTK(NEND) »JDENS(NEND), GIN61970 


; 
4 
: 
3 
: 
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30C. 1 (UDESC(K,NEND) #K24,17) GIN819R0 

301° REwIND J TAPE G1N81990 

302° Ge Te $99 GIN82000 

303° 995 WRITECIIOLTs9Q2)NEND GIN82010 a 
3046 SC@ F@RMAT('NEND EXCEEDS wFILE, NEND 8 ', 16) GyNee0e2d ; a 
305° KKe9 y RETURN ; 3 
306¢ $93 CONTINVE GIN82040 
367° 5cc RETURN GIN62050 

308 Cc ao 8 
309° C seeres GSLM DLT INPUT LOGIC } 
310° C ; 
3iie 700 CONTINUE : 
312° IFCICL TeEG21)GOTE821 

313° REAC(ICISCeE12)NMAX 3 JPRE 8 AMAX 3 \PRE#®t 

3146 81z FARMAT( 16) as 

315° 322 CONTINLE 

316-6 REAC(ICISC,321,E6N09331 )NBLO, LLAST,LASTR, BL MAX,OLMIN 

317° 324 FORMAT (4xs 16s 16s 13026904) 

318+ IF(NBLO@cEGeQ)IDLT#0 4 GBT8575 

319° ALMINSFLBATI(LASTR#SC) 

32Ce ALMAXSALMINOLe 

321° BLARGsOLMAX@SLMIN 

322° CLEUFSCLARI+6LARG 
323-6 CLECB*CLELEeBLARG 4 
3240 IF (CCDLOUP GE ce BL MAX) eANCe (CLA0GeLE -OLMIN) )GBTH3203 q 
325° IFRESTLAST j 
326° E8T8322 : 
327° 323 CLALPeDLATO+1« j 
328-6 CLACOSCLABG6 "1. 

3296 LF CCL ALP eC eC ALMAX?) eANC se (CLAD SLE CALMIN) GB TO324 

330° IF (ALMAXeL TeDLADS8) G8TA343 

331° IPREsILAST 

332° E8T632e 

333° 324 IF (IPREeEGeNMAM)GBTO325 

334° IBEGsJFRE+L =~ 

335¢ 6676326 

336° 325 IGEGey 

337° C cecese NIAF = INDEX FIRST RECe TOA READ 

37386 C eeeeee NSLP = [INDEX LAST REC. T& READ 

339° 326 NFIR = NMAX#(NBLO"1) 

34Ce by altel me 

341° NSUPsNFIR + IL 

3426 C sscnee AVOIC TRYING. "10 READ REC, WRICk ARE ALREADY PROCESSED iq 
3436 IF (NINE eL TeNFRE)NINFSNPRE E 
3446 NSKIPeNINFeNPRE 3 
3456 CALL SKPREC(ITAPEsNSKIFs tF WD!) 4 
3466 GOT8 (330233023342 332s333) INDICA 4 
347° GOTO (33923344 3320333) INCICA : 
3486 33¢c CONTINUE ° a 
349° NPRE@NSUP4+1 i 
3506 ICNREC = NSUPeNINF #1 8 [CONT § C 4 
351° 821 IFC ICONTeLTeICNREC)IDL Tay 3 G8T9870 

352° ICLT#9 43 G6T8322 

353. 87C REAC(ITAPE, 11) IRECL, ISORC,KGDA,KGMB,KGYR, KGHM, 

3546 1 CLAT,CLONGsELEVsK9772598SG, IDEPs FAs BGs TCo ELCs 1GCo a 
355° @ RF As TREGCoIFFCs IAs IFBCsLTKEVsLGKEY, IAKEY 4 
356+ ICGNT = [CONT+1 4 
357° G6T61C1 i 
358° 343 WRITE(IIOUTs 344) 


359° 344 FERMAT(IHOs'TEST AREA ALREADY PROCESSED's/) 





KKa9 3 RETURN 

331 WRITE(T16UTs345) 

345 FORMAT(gHos "INCSRRECT CLT TABLE = FOLND EBF WHILE PRECESSING 
* RECeRCS') 
KKag » RETURN 

333 WRITECIIOLT. 346) 

346 FORMAT(ihOs, INCORRECT OLY TABLE © FOUND EAD OF TAPE wHILe 
* SKIPPING RECBROS',/) 
KKe93 RETURN 

332 WRITE(IIOLT+347) 

347 FORPAT( HO, ERROR CONDITION WEILE SKIPFING RECARDS1,/) 
Kies } RETURN 

EN 
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FUNCTIAN GINTF(RLAT) 


GINTF CALCULATES THEBRETICAL GRAVITY FRAM INTERNATISNAL 
GRaVITY FORMULA 'eARTH AND ITS GRAVITY FIELD! HEISKANEN 
Ano VENING MEINESZ 1958 PAGE 74e EXPANDED BY As 


FOLINSBEE USING FORMULA (SIN(X))##ee (42C8S(2X))72 
VALLE RETURNS A G * 977CCC MGALS 
A ® ABS(RLAT) 
GINTF & 3632027202586 0157 HCAs (ZeHa) +2e885eCgs (sewn) 
RETURN 
END 


Kaas Fe ll ae ge Ta ate ean 
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RDQOANNDIANN ANN 


FUACTIBN CIA7FCRLAT) 

VERSION 8F 25 APR 75 TO REDUCE FORMALLA BY USING 

EXPRESSION SIN(X)*##2 # (3°CBS(2X))/2 

CaLCLLaTES Thee@ReTICAL GRAVITY FREM The JATERNATIONAL FORMULA 

ACC8ERCING T6& RESOLUTIEN AGe 2 BF THE xIv TR GENERAL ASSEMBLY 8F 
TRE TeLeGeGe 1967 

FER CETAILS 6F THE FARMLLA SEE FAGE 74 OF 

GEGCETIC FEFERNENCE SYSTEM 1967 


VALLE RETURNED AS Ge977ccc MGALS 


AwsABS(RLAT) 

GI67F = 362199455 = 259eeS639*COS(2e#A) + 2¢8683"CBS(4e*A) 
RETLRN 

EAC 
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1° SLERALTINE GRICG(2ZZ,HGT,xFAC, YFAC,TOP,BBT,OLEFT,RIGT) 
ce C ELEROLTINE GRICG, FOR GRAF 
Ze C ANBTATES X ANC Y SCALES 
we € f 
Ee C S§sw(s) = LF T& SUPPRESS ANBTATION BF X AND Y SCALES j 
€° C sf 
Je € LSES SLBROLTINES FAR CaLC@MP AND [Sh i | 
Ge Cc asSlMe ISW INITITALTZEC IN MAIN PRACRAM ; 3 
ge a 3 
1Ce ¢ i 
11e cs LI8LTse ; 
1é-6 TIOLT s 1C8 ; 
13° cs WRITE(ITIO@LT21¢0) H 
146 CS 1c) «6FO@RMAT(ISET PEN T8 BRIGIN OF PLOT IN BOTr X AND Yty } 
156 cs PALSE 10 i 
16° cs CALL WerERE( XS8RG, YORG) 
17. CALL WRERE (X@RG, YURG, RFACT) 
15 CALL FLOT(XORG, YORG, @3) 
19¢ cs CALL SYMA(CeOs 00s O01425209Cs"1) 
éce CALL SYMEBL (o*#Q OeOs Col4s 30 CPOs @4) 
eile IF (1SW(8) )300,20,300 
226 C PLATTING x AND Y SCALES EVERY INCH 
ege ec ANGC8O°0 
z4e wlECs@1 
eSe ANGD®&Qe0 
2be KCECsel 
27° TOFY=TOP/YFAC 4 
ZBe BATY®BGT/YFAC . 
cSe CLEFX#OLEFT/XFAC ; 
3Ce RIGTXsRIGT/XFAC : 
31° AkeQeee2Z 
32° A3s0+3*22 
33° XX sCLEFX 
Bs4e YY*B6TY 
356 ANTSDLEFT 
j66 CALL PLOT(XXe YYs3) 
37° fo PLEPRENG TIC 
3G 5C YT#YY+A3 
39-6 CALL FPLOT(XX,YT,2) 
40° XT #XXeAK 
41° YT SYYeAK 
426 cs CALL NUMB(XT,YT,HGT,ANT,ANGC, JCEC) 
hae , CALL NUMBER (XT» YT» KGTs ANTs ANGCe YDEC) 
4he CALL FLOT(CXX,YY,3) 
4S IF (XXeRIGTX)100,2C00,20C 
466 1CC XX ®XK4(1¢042Z) 
47° ' CALL FPLOT(CXxXsYYs2) 
4 Be ANTSANT#(XFAC#ZZ) 
496 Ge Te 50 E 
5C« C PLOTTING BORDER AF GRID LIMITS 
51° 2CC = XXBRIGTX 
526 YY®BOTY 
&3e CALL FLET(Xks YYs3) 

Eye YY®T6FY 

5Se CALL FLET(XXs,YYs2) 

; 566 XX BOLEFX 

{ E76 CALL PLOT(XX,YYs2) 

: GRe ANTSsTBF 


5Se AXee(005#2Z) 
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66e 
67° 
6&e 
EQe 
Ce 
71° 
Vee 
73° 
74s 
7560 
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AY8~(C003#2Z) 


C PLOTTING TIC 


cs 


2ec 


2&¢ 


3cc 


XTEXXAQ 

CALL PLOT (XTsYYs,2) 

XT SXX4AX 

YTSYY+AY 

CALL NUME (XT, YT, HGT,ANT,ANGO, KCEC) 
CaLL AUMBER (XT, YT, KGTs ANT» ANGCs KDEC) 
CALL FLOT(XX,YY,3) 

ue he AEE | 
YY®YY¥e(40C0%2Z2Z) 

CALL PLOAT(XXs YY,2) 
ANTSANT#(YFAC#2ZZ) 

G6 Te 220 

RETURN 
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1° SUBROUTINE GRID|(2Z,ZHT,NUMPL DEGRA, FOEG2,ROEGS,RTOP, ITEP, REST, 
Ze 1 LBOT,RLEFT»ILEFTARRIGTs IRIGTASINCHs SMP, FEGT,FTAP,FLEFTFRIGT, 

j ge 2 NCEGsSLATsSLONG, BOTMP) 

| he c 
Se C PLOTS AND ANNOTATES MERCATOR ChART GRIC ; 3 
6e C 2ec SCTS6BER 1972 | 
7° c ; i 
cae 
Se Cc sshty) LP re CRAW PERIMETER 6F GRIC ONLY 
1Ce C gssh(S) #0 76 Make DEGREE ANNOTATIOAS INSIDE GRID (CHARACTE” SIZE 0407 INCr 
die C ei T6 “AKE CeEgREE ANNOTATIGNS BUTSIDE GRID (CHARACTE SIZE O+21 7. > 
12° Cc s2 TE MAKE CEGREE ANNSTATIONS OUTSIDE GRID (CHARACTER SIZE 0035 !°cr 
13¢ C SShc(a@) LP Th SLPPRESS PLOTTING OF GRID 
14: C 
iSe G USES SLUBRELTINES “HR, ISh, AND CALCOMP ROUTINES 
16° c ASSUMES ISW INITLALIZEC IN MAIN PROGRAM i 
7* Cc 
186 C INITIALIZING CISTANCE AND CFARACTER HeIGHy CONSTANTS 
1S- 1C =SA80eC2#22 
2ce $8s0eC5*ZZ 
aie $Cs0015*2Z 
220 SDeQe22%22 
236 SE*#0+18#22 
a4e SFseoe25#2Z 
ese S620 026*2Z 
26e IF(ISW(5)6EGeO) ZFAC#ies CO TE 1g 
27° IF(ISw(5)eEGey) ZFACa3e 
28e IF(JSW(S)eEGe2) ZFACaSe 
296 TAwe(0005+(ZFAC#O 005) ZZ 
3Ce TBE e(Oe07+(ZFAC#O 07) #22 
sie TCS(ZFAC#C*24) #22 
32° TOsO°C4#2Z 
33° 18 KGTSZFAC*OeC7#ZHT 
34. C SET @RIGIN FER CHART 
35° CALL whERE (xxsvysRFACT) 
366 CALL PLOT(XX, YY, #3) 
376 F(ySwW(8) )80,20,806 


gae li ANNO TAT Ng PLOT NUMGER IN LOhER LEFT HAND CORNER 


i 39° TFC ISW(S) }yeqa240 
: 4Oe 189 gree l (ZFaC el eC) 20088) #22 
4 44° 21 CALL Symp8L (SpsSAshGTaNUppls90%74) 
4ee C = ANNOTATING GRC 
43° IF (3Sw(5)) a4, w#2e 
4he 22 CALL NUMBER (TAs TBs HGTs FLEFTs OrCe #1) 
45e« Ge Te 26 
bbe 24 CALL NUMBER (SB, SA, HGTs FLEFTs gegs #4) 
47.6 26 CALL FLaT(C*0,000,3) 
48e C START PLOTTING GRIC ’ 
2 sets 
° SLONGs T 
54° CALL whR (CEGRA,FCEGe, RCE Go, RLEFT,»SINCH, SMP,SLAT, SLONG, BETMPaxxs yy) 
52. CaLL PLaT (XxX,YY,2) 
53° IF (1Sw(5) 130230028 
54e 28 XT eXXeTA 
55-6 YT#YY*TB 
56. G6 Te 32 
57° 3¢ xTexxeSG 
5B. YT#YY4sSB 
596 32 CALL AUMBER (XTy YT» bGTs FRIGTs Qecs 04) 


| 
F 





i 427 


6Ce IFC ISW(S)) 73,72,72 
é1e 7@ XTEXXeTA 
62° YTaelTD 
63° G6 T6 73 
64e 714 YT#SC 
6s. 73 CALL NUMBER( XT, YTshGTeF BGT, OeOsel) 
b bbe C. CRAw LEFT ANC TOp SIDES OF FJOUCTAL FALFeINCk SQUARE 
: 67° XFIDEXX440C 
5 68> YFIDsYY¥eOeS 
q 69° CALL PLOT(XFID,YFID,3) 
4 7Ce YF IO#YFID+CeS 
q Fie CALL PLOT(XFICsYFIO,2) 
: 72° XFIOSXFID+C<5 
‘ 730 CALL PLOT(XFID,YFIO,2) 
q 7he CALL Beer CRKET NAS) 
4 756 SLAT#RT6 
a Jée CALL MER CEGRA,FCEGo, ROEGZ, RLEF Ts SINCH, SPP, SLAT, SLONG, BOTMP, XX, YY) 
V7. CALL FLOT (Xx, YYee) 
786 IF(ISW(5)) 75,75,76 
796 76 YTsYYeTC 
&Ce G8 Té@ 77 
&te 75 YTsYYoSE 
&e5 77 CALL NUMBER(XT, YT, HGTSFTOF,0e0n 0d) 
83° CALL peereee tes? 
Bue SLONGSRLEF 
aS. CALL WEA DEGRA, FCEG2, ROEGE, RLEFT,SINCH, SMP, SLAT,SLONG, BaTMP, XX, YY) 
&Ee CALL PLOT(XXs YYe2) 
&7.° IF (ISW(65) 136336234 
&Ee 34 xTeeTC 
age YTsYYeTO 
9C* €@ Té 38 
Sie 36 XTsXxeSC 
Sze 38 CALL NUMBER (XT» YT» bGTs FTBPs Ovds #1) 
93¢ CALL PLAY (xxXpYYs3) 
Ghe CALL PLOT(O*Os0#0s2) 
956 IF (1SW(5) 142242240 
96° 4¢ XT#eTC 
97-6 YTseTC 
GBe G6 TA 44 
95° 42 XTsSC 
100° YTsso 
101° CALL NUMBER (XT,y YT, KGT» FBOTs O*Cs 1) 


1026« c *einehes CRAWING a~NO ANNOTATING PERIMETER 6F GRzD 
103° C CRECKING If NCEG GRID LINES KANTED 


104° IF(ISW(1)) 80250280 
105 5c NNDS(CIRIGT@ILEFT) /NOEG) *NDEG 
106° NBOT#1 
107° C8 60 NeNDEGsNND»NDEG 
1686 wKSIRIGTS(ILEFT+N) 
} 108° TF (0K)51261051 
j 110° 51 AAAsN 
tite RMORE aCEGRA*AAA 
} 112. SLONGSRLEF T+RMBRE 
113° FLONGeSLONG#57¢29578 
114° IF (NBOT #1 )54s52054 
3 115° 52 SLAT#sRROT 
116€° CALL WHR (DEGRas FDEG2sRDEGEsRLEF Tas INChs SMPo Shalt »SLONGs BETMPs XXs YY) 
117° CALL FLOT(X%sYYs3) 
118- IF (1SW(5) 55.55.53 


1a3" 53 XTSXX+TA 





12Ce 
121° 
122° 
123. 
124-6 
125° 
126° 
127° 
128. 
129° 
eo 
$33: 
133° 
Hi: 
1366 
137° 
138+ 
139° 
14Ce 
141+ 
142° 
143. 
144.8¢ 
1456 
146, 
1476 
148. 
1496 
15¢+ 
151° 
182-6 
453° 
154° 
155° 
156¢ 
157° 
158° 
159° 
160° 
161° 
tea 
163° 
1646 
165-6 
166° 
167° 
168. 
169° 
us 


172° 
173° 
174° 
175° 
176° 
177 
178° 
179° 


eee A a a A A NEN EO PUPAE UE te 
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YT#YY4TB 
G8 TA 56 
5S XTsxXXeSB 
YT#YY4SA 
56 CALL NUMBER (XT, YTs BCTs FLONGs O60» o1) 
CALL PLOT(XXeYYs3) 
SLATaRTOP 
CALL WhR(CEGRA,FOEGa,RCEGE,RLEFT»,SINCK,SMP,SLAT,SLONG, BSTMP, XX, VY 
CALL PLOT(XX,YY,2) 
NBOTse 
Ge Te 60 
54 SLAT#RTAF 
Call WRR(CEGRasFDEG2,RCEGZsRLEF pe sINCKa ShPa Slats SLANGs BO TMPs XXa YY) 
CALL A mi 
SLAT#REG 
CaLL WER (CEGRa, FOrG2, RCEGE,RLEFT, SINCH, SP, sLay,SLONG, BOTMP, XX, YY) 
CALL PLOT(XXsYYs2) 
IF (1Sw(5) )58,58s57 
57 XTaXX4Ta 
YTsYY+T6 
Ge Te 59 
538 XT aXXeSB 
YTBYY*SA 
59 CALL NUMBER (XT, YT, hGTs FLONG, OC, o1) 
CALL PLOT(Xxeyys3) 


NBOT #1 
FinySheD CRaAWING aND ANNOTATING TRIS LONG 7LOe LINE 
60 CBNTINLE 
COMPLETED ALL LONGITUDE GRID LINES 
64 NNDe((ITOP*1B6T) /NDEG) #NCEG 
NLEFT#@ 
C8 70 N#NCEGsNNOsNDEG 
wK® ITTOPe(IBETeN) 
TF (4K 1161480+ 1061 
161 AAAgN 
RMORE eCEGRA*AAA 
SLATSRBOT+RMBRE 
FLAT sSLAT«57°29578 
sp UME ee Tegyensegess 


6 
. cit NEPRCBESRA, FOEGs,RCEGs,RLEFT/SINCH, SYP, SLAT, SLONG, BETMPsyys YY ) 
CALL PLOT(XX, YY, 3) 
IF (1gw(5) )65,65,63 
63 xTax #TC 
YT#YY¥eT0 
Ge Te 66 
65 xTaxxeSC 
YTayYY+sB8 
66 CALL NUMBER (XT, YT, HGTy FLAT, O90, ef) 
CALL FLOT(XXsYYs3) 
aay yo 
CALL WeR(OEGRa,FOeG2,ROpG2,RLeFr,sINCk,sMP, slat, SLONG, BayMP, Xx, YY) 
CALL PLOTIXX, 97,0) 
NLEFT#2 
G6 T6 79 
64 SLONG SRR] 16} 
“ae WhR (CEGRA,FOEGs,ROeGs,RLEFT,SINCH,SMP,SLAT, SLANG, BATMP, XX, YY) 
L cae 


catl Grn (BEGRA,FOEG2,RGEGe,RLEFT,SINCk, SMP, SLAT,SLONG, BETMP, XX, YY) 


ra 
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LaCe 
1a. 
1426 
1k3.¢ 
1&4. 
1456 
156° 
127. 
Lhe. 
149° 
19C- 
191° 
13é° 
193° 
1946 
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CALL FLATOXX,YY,2) 
IF (1Sw(5) 168268267 
67 XTexxXeTC 
YT#YVYeTD 
Ge Te 69 
6&8 xXTaxx+SC 
YTayY+SB 
CALL NUMBER (XT, YT, mere FLAT» OeCy 1) 
CALL Ay hen aia 


FINISHEE A ANNOTATING AND DRawING TRIS LATITUCE LIne 
7¢ CONTINLE 
COMPLETED ALL GRID LINES ANC ANNOTATIONS 
&c gr Ns 
EN 
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hIGHEST ERRGR SEVERITYS C (NE ERRORS) i 


CEC HEX 
WORDS WORDS 


Sete oa ae RE 


GENERATED CODES 755 Coer3 
CANSTANTS3 26 COC1A 
LOCAL VARIABLES: 34 COCciF 


TEMPS: 27s COC rc 

TOTAL FRAGRAM: 39 00347 1 
; 4 

| a 
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SUBROLTINE INCEP(SL»ShsCX,CY,CXP,CYF,BX,BY,A19A2,84,82) 


SLEROUTINE INCEP, DETERMINES INTERCEPT FOINTS SF LINE BETWEEN 
ANY 2@ POIATS ANC GIVEN BELACARIES 


2cc 
ecs 
206 


21c 
215 


22ec 


30¢ 


305 
3ic 


32ec 


33¢ 


335 
34C 


35¢ 
355 


36¢ 
365 


37¢ 
375 


385 
386 


347 


3s¢ 


335 
405 


USES SLBROLTINE EXTD 


Nad 

Swra(cyeCYP)/(CxXCXP) 

Bs ( (CYF@CX) = (CY#CXP) )/(CXeCXPF) 
IF ( (ABS (CXF) ) SL) 20522052300 
TE ( (ABS(CYP) )*Sw)20622C62300 
A1=CXP 

BlecyP 

NeNel 

LF ((ABS(CX) }°SL)21542158500 
IF ((ABS(CY))#SW)220,22C,500 
Aes x 

Bercy 

NsNel 

TF (N*2) 8002700800 

EXsSLl 

BY SSM#BXeB 

IF ((ABS(BY) )eSw)31C231C07330 
CALL EXTD(CX,CXP,CY,CYP,EX,BYs IND) 
IF (INC) 320s320,330 

A1L®Bx 

Oy, aby 

Nehot 

FY aSwW 

BXs(Py=B)/SM 

BY S CABS CON? P#).29809 206738 

CALL ExTO(Cx,CyP,CY,CY Aarne 
TF (INC) 36593504365 

Kavel 

IF (N=2) 36023557800 

AgeBX 

Be*By 

Ge Ta 700 
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Be C SLERBLTINE BLINE(ZZ,ZhT), PLOTS GRID FAR MERCATAR } 
Se Cc CFART KAVING NONW INTEGER BALNCARIES H 
1Cs C ; 
tie C i 
1° C sgh(g) UP T6 SUPRESS PLOTTING OF GRID 
13° Cc 
14s C > 
15. £ CALLS SUBROUTINES RrOpc, wHR, JSws AND CALCOMP RBUTINES 
16° C 
17° Cc 
18. C : 
19° C INITIALIZING CISTANCE ANC CFARACTER FEYCKY CONSTANTS 
eCe C 
21° 16 &GTsOec7#ZeT 
eee Sa*CeC2*ZZ 
23° SBsC*C5*Z2Z 
che SCeCey5#2Z 
e5~ $D20022*22 
26. SE=C01&*22Z 
27e SF weer h#ZZ 
ZR SG*Ce26%22 
29° CALL RTOMCI(RTOPsLATSRLATM) 
3Ce CALL RTDMC(RLEF TsLONGsRLOM) 
31° FYOFELAT 
326 FTSEMakLATM 
33° FLEFTsLAKG » 
34e FLETM#RLO@M 
3Se CALL RTDOMC(RRBT,LAT,RLATI) 
366 CALL RTOMC{RRIGT,LENGsRLEM) 
37° FROTSLAT 
jhe FESTMaRLATM 
39° FRIGTSLENG 
4Co FRGTM=sRLAM 
aie C SET BRIGIN FAR CART 
ace CALL WRERE (X@RG, Y@RG, RFACT) 
ee cs CALL WRERE (XORG, YORG) 
4he CALL FLOAT (XBRG,YBRGs93) 
4&e Te (ISK (8) 86220080 
46s C ANOTATING CONSECUTIVE PLOT NUMBER 
47 ZC PLNUMSNUMPL 
4&e CALL NUMBER (See SAs KGTs PLNUMe S00 =1) 
4Se cs CALL NUME(SFsSAshGTsPLALMe 9GeGse]1) 
5Ce AUMPLSAUMPL44 
Ste C ANNOTATING GRIC 
526 cs CALL NUMB(SBsSAsHGTOFLEF Ts Oe0s"1) 
53° CALL ALMEER (S6, SA, hGT» FLEFT» Oeds #1) 
Bue XT#S8+4SD 
556 YT®SA 
566 cs CALL ALME(XTSYTSHGTSFLF TMs Qegsed) 
57° CALL ALMBER (XTy YTs FGTe FLFTMs CeCe #1) 
She CALL FLOT(C#0s0+003) 


59° C START PLOTTING GRIC 





446 
6Ce SLATSREST ‘ 
ble SLOENGSRRIGT 
62° CALL WER (DEGRA, FOEGS, RCEGs,RLEFT,SINCh,SMF,SLAT,SLENG, BATMP,¥X, YY) 
63° CALL FLAT (XX, YY,2) 4: 
640 Cc CRaAw LEFT AND T@p SIDES OF FICUCIAL SCLARE a a 
65 XFICSXxX+10C a: 

4 666 : YFICSYYeOe5 

4 67° CALL PLOT(XFID,YFIDs3) 

; 68s YFICSYFID+C65 ai 
69- CALL PLET(XFIO,YFID,2) 43 
7Ce XFIDeXFID+Ced aa 
wie CALL PLET(XFIDs YFICs2) 4 
72° CALL PLET(XXsYYs3) 43 
73° XT *#xXXe(20C#SG) @S8 Pe 
Phe YT#YY+S6 : ; 
756 cs CALL AUMBC(XTZYTSHGTSFRIGTs OCs #1) t 
Jé&e CALL ALMBER (XT, YTs BGTs FRIGTs Cos wt) Ee 
776 XT#xxeSG i a 
7he YT#YY*SB : 

796 CALL NUMBER (XT, YT, FGTs FRGTMs OeCy wi) 

&Ce cs CALL NUMB(XTaYTsHGToFRGTMa0eGeel) 

Ble CALL FLAT(XX,YYs3) 

gee SLAT#®RTO6F 

Be SLANGSFRIGT 

85-6 CALL PLOT (XX, YYs2) 

Be eee 

e SLENGsRL 

a, CALL RER(EEGRA, FCEGp, RCEG> ,RLEFT,SINCK, SPF, SLAT, SLONG, BOTMP, XX, YY) 

B9e CALL PLET(XX, YY, 2) 

30° xTsxx4SC 

Sie YTsVYeSE 

See CALL ALMBER (XT, YT» hGTe FTEPs Ov0, =1) 

93° cs CALL NUMB (HT eYToRGTAFTOFs0¢0s°1) 

g46 XTSXT+SG+SB © 

95° CALL NUMBER (xTs yTso hETs FTEOPMs Orcs #4) 

96« cs CALL NUMBUXT,YT,HGTSFTAFMsQegsel) 

97° CALL FLOAT (xXxX,YY,3) 

98. CALL PLOT (C#Qs0°Q42) 

99° XT8SC 

10C. YT#SD 
ole cs CALL NUMB(XTayTetigheFROTsO3002"1) 

102° CALL NUMBER (XT, YT, hGT, FBGTs Oece @4) 4 
103+ XT"®=XT+SG+S8 
1046 cs CALL AUMB(XTe YTAHGTaFRETM20eCeel) 
105° CALL NUMBER {XT, YT, FGT» FEATMs OeQe 91) 4 
106. OUTPUT 'SUBReUTINE ALINE oo 11  ULY 73! : 
107+ C FINISKEC pLOT AND ANST BASIC gRI i 
108° 8c RETURN ; 


109° END , : 
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Lvov 





is ae a ati cd i at ao , " nities . n 
ee ; , , Sahat. bie z . ' . aie 
SN Sete SRO ee ee clea 2 


FIGREST ERRCR SEVERITY! © (NO ERRORS) 


CEC HEX 
wBRES WARDS 
GENERATES CS9CE; 375 C0177 
CONSTANTS: 1s C0013 
LOCAL VARYAELES: es cocig 
TEMPS; 46 COCc2E 


TOTAL FROGRAM: 465 Co101 





ELT TIE ETOCS esi caddi OOS SR ei iia, scaly lk coat 





ie i i “ J 
- - Sty ch shiremnail 
ba es ta gre 


449 

te SUBRALTINE PINOT(ITAPEs TAPE, KKa ISTAsKEYeLATsLATMs KNSo 
2e 1 LENG,LOMsKEW, VEL, THICK, IMANTsNELEV oNiyN2eN3aN4sMET,IYR, IDESC, 
3e @ CINE,SSTRIK,CRVNsWGTNeAVWTN, CRVWyWGT Wy AVWTW) 
4e C VERSI6N BF 20 OCT 1975 TO ELIMINATE STATawWRhAT DIDN!IYT wARK ANYWAY 
Se C VERSISGN BF 431 DEC 19742 TO ADC KANCLING OF PREJ4 BUTPUT 
6. = OL VERSION 8F 29 MAY 19735, CHECKS FAR CARCS BUT OF BRDER 
Je & VERSION 6F 9 JUNE 197¢2 REMOVES SETTING SF ITAPE AND JTAPE 
Be C VERSION BF 14 MARCH 1972,ACCING IMANT 16 ARG LIST 
Ge Cc VERSION OF 7 MARCH 1972eADCING SORT KEYS 

10° (# VERSION GF 11 MARCRr 1971 

-i1. C SUBROUTINE PINOT, FAR YNPLT ANC OLTPLT SF SEeYSsMIC REFRACTION 
126 C PROFILE DATA AT SFFMT FORMAT 

13° C 3 

i4e C 

1Se C ssk(26é: LP TO SET UTAPE ® 108 ANC IRECY = @ 

166 C ssgw(32) UP T&6 READ SPFMT CATA 6A TWE CAROS 

17. C $Sw(33) LF T6 WRITE SPFMT CATA 6N TWO CARDS 

186 C 3 

' 19° DIMENST6N TOESC(6)s,VEL(8) » THICK(8) 

ec C 

ele C USES SUBRELTINE ISweNAVIN 

22e € 

23° PUTO CISCO SO SES Cee eee ere eee Tee eee eee ee 

24e IF (KK) 420246002410 

25° € 

26 C ITAPE « URN FBR SEISMIC DATA INFLT 

276 C TAFE * URN FOR DATA BUTPLT 

28e SEC RCE SECC S LS ES ECCT RPP SE TEP ESET E SE ERS eS oe 

296 Cc 

30¢ 4O0C CONTINLE 

Sie TIN & 105 

32° TI6UT = 168 

336 TSTAG86 ’ 

B4e IAKEYs0O : 

35° RACEG#57°29578 

366 WRITE Pabalt 

37° 6cc FSRMAT ( / +SUBROUTINE FINGTs VERSI6BN ac BCT 49751 //) 
38° IF (1SW(26)*EGe1) WRITE(TIOUT,601)3 

39° SBUTPLT 'IREC1 SET TO 2 TO AVOID SLEWING! ; 

4Oe #wRITE (T1@LTs601) 

41e 6C1 FERMAT(! #44 Hee eee Heer eet He RHEE HEE eT) 

4260 RETURN 

43° C 

bbe C ReaCING U BF TERANTB WARLC SEISMIC REFRACTION COMPILATION 
4Se 4ic CANTIALE 

460 10 CONTINUE 

47° IF (1Sw(32) 915212015 

4Be 12 READ (I TAPEs99qs ENDs9000ERRe10) : 

496 ¢ IRECys ISTASKEYs LAT LATM, KNS,LONG,LEM, 
50° 4 KEWaetaKlawee Koad 3a Kae vhs Khe d5a KS au 6sKGsd7 a K7 0 JB KBs 
Si.° 2 IMANT,NELEV Ny sNesN3eNueMETA TYR, IDESC,OINEsSTHIK,CRVN, 
526 3 wWGTN,AVWTNsCRVW ad HL ada 

53° 99¢ FORMAT (LysldeAqsteslevaye BeleeAys 8 (lee T3yslQat4o4l ye 
She 1 TqelerGA2e1XsoF hoya 3epsoFGoQe{XeFaeja ak 6eQs5Xs0l3,12) 
55° G6 T8 18 

566 15 READ (ITAPEs,99,,ENDs900sERReiC) 

576 € IRECys ISTA,KEYsLATSLATM, KNS,LONG,LOM, 
58° 1 “KEWautaKlever Ker daa Kaa wha Khe Sa K5ae6aKGsd7sK7 a dB KBs 


596 2 IMANTsNELEVs Ny sN2eN3aNuoMETs TYR, ICESC,DINE,STHIKsCRVNe 





oe ered 


de hitb ecan st 
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3 _WGTN,AVWTNaCRVWaWGTWs AVA TW 


991 


1 


FORMAT( Tis lesAtsleslesAle las leeAle Bl l2,13) sles lao4l is 
Thelas1OxsGAeeixsepdeleFsedeer ees Xs 3eleerbeQsSXs2130!l2) 


18 CONTINLE 


2é 
24 


98 


C 
C @UTPLT RECSRD 
Cc 


IF (1SwW(32))22530222 
CrECK FOR CARCS @UT BF @ARDER 

IF (IREC1*1)24530024 

IF CTREC{ eEGe8)KKa8sRETLRA 

BUTPUT 'IREC1 eNEe 1! 
BUTFUT ISTAS 
READ(ITAPEse5) 
FARMAT(1X) 

G6 Te 15 

VEL (1) 8(FLOAT(U1)) #004 
VEL (2) a(FLOAT( U2) ) #004 
VEL (3) s(FLOAT(U3)) #001 
VEL (4) s(FLOAT(U4)) #004 
VEL (5) S(FLBAT(U5) )#O¢4 
VEL (6) #(FLOAAT(Y6)) #004 
VEL (7) #(FLBAT(U7)) #001 
VEL(8) 8 (FLAAT(U8)) #004 
THICK(1) s(FLOAT(K1)) #001 
TRICK(2) 8(FLBAT(K2) ) #001 
TRICK(3)®(FLOAT(K3)) #001 
TRICK (4) (FLOAT(K4)) #001 
TRICK(5) @(FLOAT(KS5S) ) #604 
THICK(6) S(FLBAT(K6)) #004 
TRICK(7) 8 (FLOAT(K7)) #001 
THICK(8) e(FLOAT(K8)) #004 
ISTAGsISTA 
RETURN 


. 


42@c CONTINUE 


43¢ 


435 
446 


46C 


1 
2 


LTKEYsLAT+90 
RLATMsalLATM 
RLOMsLBM 
CALL NAVIN(LAT,RLATMs KNSsL ONG, RLOM,KEW,RLAT,RLONG) 
CALCULATING SORTING KEYS 
PLAT#(RLAT#RADEG) +909 
PLENGs(RLONG#RADEG) +180 
LTKEYsPLAT 
LGKEYsFLANG 
IF (1SW(26) 143024359430 
wTAPE#108 
JREC1is2 
G68 T6 440 
IF (ISW(33) 46024402460 
WRITE (eTAPEs 990) IRECLs ISTA, KEY, LAT» LATM, KNS,LONG,LOM, 
KEWs ula Kla wes Ken 3p Ky 4a K4y S50 K5 9 by K69 N79 K7 2 89 KBs 
IMANT,NELEVa Ni sN2aNSaN4aME Te TYR» IDESCACINEsSTHIKsCRVNe 


3 WGTN,AVWTNg CRVWs WGTW, AVATW 


4 


al TKEY,LGKEY, IAKEY 

RETURN 

WRITE ( wTAPEs991)TRECis ISTA,KEYsLAT eg LATMsKNS»LONGsLOM, 
KEW da KL ewes Kee N90 K39 4a Kb 50K 50 60 K69 79 K7 2 dB dKSs 
IMANTsNELEV Ni sN2eN3eN4eMET, I YR, IDESCeDINE»STHIKsCRVN, 

“WGTN, AVWTINg CRVWe WGTWeAVATW 

sLTKEYsLGKEYs IAKEY 





as a ee ere cre WC nO eY CN ee ean 


120° 
121° 
1226 
123° 
1246 


125° 


1266 


90C 
9Ce 


451 


RETURN 

CANTINVE 

WRITE (IT I@UT»9¢2) 

LEAN UES FUND, PROCESSING COMPLETED!) 
s 

RETURK 

ENC 
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T A €9900 y4vos I OvisI 
AWWNQ A 329008 wiv9s I LNVwI 
AWWNG A #E000# Avuxv I 3$3al 
AWWNG A SE000e HIV9S 4 3NIG 
AWWNO A DE000« yVvOS ¥ MLMAV 
Saquyem 307 SSVI 3qAL SAWN 
330 x34 


csp 


92200 206 
TATOO CEH 
EETOO OF 
39000 at 
estes eeete 
267 «13av7 
3H 
AWWn0 A SE000* 
AWWNG A 9EO0De 
T A gt000 
T a Qtooo 
t A 00000 
AWWIG A 320008 
Ny3ix3 
AWNNG A £20008 
AWWNG A S2Z000« 
t A *t000 
T A 30000 
T A 80000 
AWWNO A E2Z0008 
T a €1T000 
T A qd0d90 
af a £0009 
AWWIG A 4t0008 
AwWNG A 220008 
T a 20090 
T A #90000 
AWWI0 A VEOODe 
AWWId A GE00Ds 
Seaeeent ee eeee 
Sque@m 386° 
334 x34 


22200 006 
Swt0d0 O&y 
OETN0 se 
Z9000 Of 
307 13av1 
x34 
y"qVOS 4 NL9OM 
YIV9S 4 »IHLS 
Y1vIS 4 Wiva 
y"1VOS 4 DNOd 
M4AV9S ¥ 1ONIg 
yivos I 2N 
OOudS NTAYN 
y4qV9S I 9NO64 
wIyvos I Wav 
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y1v9S I > 
wavs I Tt 
yqv5s I a3» 
yqvos I an 
yqvos I of 
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yqv5s I Zdval 
y1v5S I visI 
¥7v9s I inell 
yqVvIS I AdyvI 
47V9S 4 MAND 
y1V9IS 4 NIMAY 
SSV7) 3gAL 3WYN 


le 

ce 

Qe 

be 

Se 

6e 

7s 

ae 

Se 
ics 
ile 
12.6 
13e 
Lhe 
15¢ 
166 
17° 
18° 
19° 
2C¢ 
ele 
eee 
eae 
P4e 
25¢ 
Zee 
e7e 
28s 
eGe 
3Ce 
31° 
326 
33° 
346 
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36° 
376 
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39° 
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41° 
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43° 
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4Se 
466 
47e 
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SUERHLTINE FLANET(KKeRKMePMASS*sGMsPCERS) 
VERSION 8F 23 MAP 1973, CHANGING SENSE SWITCH NUMBER 
VERSION OF 07 FEB 19734 INITIAL VERSIAN 
SLORALTINE PLANET, RETURNS PARAMETER VALLES FAR 


PLANET SELECTED BY SSwW(38 & 39) 
SSw(38) ® © FBR SPHERICAL EARTH 
=» 1 FOR SPHERICAL MB6N 
= 2 FBR SPHERICAL MARS 


RKM ® RADILS IN KILOMETERS 

FrasS * PLANET MASS IN KILOGRAMS 
Gy = GM IN DYNES/GRAMS SQLARED 
FCENS ® MEAN CENSITY IN GRAMS/CC 


CATA ISRT/0/ 
IF (ISRT)1C25010 
& 6LTFLT «SUBROUTINE PLANET, VERSION BF 23 MAR, 49731 
1C IFs y[Sw(38) 
IF(IP)2022C6830 
SFRERICAL EARTE 
eu RkMs 6371°2213 
PMASSe 5eS&3F +24 
Ges 3-990E61E+20 
PCENSs 552 
GB T8 900 
3c CBNTINLE 
G6 T8(4CeS0)IP 
SPRKER]TCaL MAAN 
4¢ RKMs1738°C 
PRASSs 7+3554E+c22 
REFs FIELDER, 19619F e245 
GMs 40S06CS5E4+44 
FOENSs 3634 
Ree a FIELCERs19619P 0 235 
Gé@ Té $0C 
EFFERICAL MARS 
SC RKM85594¢C 
FEF = LORELL ET ALeoy 19725 SCIENCE, Vel75y Pe 3179 
PMASS= Qe 
Gre Ce 
PCENSs 3-56 
G6 TA 300 
scc CONTINLE 
Kke JP 
RETURN 
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455 


1e SUBROUTINE PLOATA(NS, AsNeMaNLsNSeISCALE, JZERB, TMI Ns TMAX) 

2e Cc CATALO8G NUMBER 890004 PLOT 

30 Cc NOTE TRAAT THE NAME HAS BEEN CRhANGEC FREY PLOT TA PLOTA 

he Cc TO AVAIC CONFLICT WITH TRE CALCOMP SLBRALTINES 

Se (2 NO® PLOT NUMBERee THIS AFPEARS AST ThE START BF THE PLET 

6. C A wees TRE ARRAY IN WHICk THE INDEFENDANT VARIABLE AND THE 

7° Cc CErPENCANT VARIABLES ARE STOREO COLLM wise. IF THE ARRAY IS DIME(>23()3 
Be (= CEPEKCANT VARIABLES ARE STORED COLLY WISE. IF THe ARRAY IS D! 
Qe € CIMENSIBNED ACN,M) IN Tre CALLING PROGRAM THE INDEPENDANT VARIAB 
10-6 C Le IS IN ACi,1) THRU A( Nad), ThE FIRST VARIABLE TO BE PLOTTED IS 
lie Cc STORED IN A(qyo2) THRU A(Ng2) AND SB BN, 

126 € NL see THE NUMBER AF FArN7S IN EACr COLUM AF THE ARRAY THAT 
136 € wE wISk T& FLOTe 

14< € NS wy TG REGROER THE ARRAY S@ THAT TRE VALUES BF THE INDEPENDANT 
15-6 € VARIABLE / INCRE 

Lhe C VARIABLE ARE STBRED IN INCREAASING 6BROERe 

17° C a1 The INDEPENDANT VARIABLE IS ALREADY ST@RED IN INCREASING ORDE 
186 Cc GROCER . 

19° C 
eCe C 
2ie € 
220 Cc 

23° C 

24e C 

25° ¢ ISCALE #0 SCALE THE ARRAY 

266 Cc tsCale =1 D6 NA@7 SCabe The ARRAY , LSE yee LIMITS TMAX ,TMIN 
27° C AND IF IT IS GREATER TRAN TMAX OR TMIN PUT THE VARIABLE AT THE 
2&e Cc ECGE 

59. C IZERS8 #0 C8 NOT PUT IN ZERB LINE» «1 FUT IN ZERO LINE 

306 Cc TMAX, TMIN MAXIMUM AND MINIMUM VALLES PLOTTED IF ISCALE21 
31. CIMENSIGN OLT(103),YPR(11),ANG(9),A(1) 

aes CATA BLANKSANGS! Hao tL tateta tata tara Stet erat7! ptBr,69t/ 

33° REAL LINE ¥ 

B4e DATA LINE/'| 17 - 

35° 1 FURMAT(1H1260X97H CHART 4132//) 
Bbe Z FARMAT(LIH oF 110404Xs103A1) 

37° 3 FORMAT (! 1") 
38 7 FORMAT (1H 16X28 #1910 ( tower nwnnts)) 
39° 8 FORMAT(LHO29X,11F 1064) 

40° YwAxXaTMAX 

4ie YM INS TMIN 

4ee 187*1¢8 

430 NLL NL 

hye IF(NS) 169 16 16 

456 1c C8 15 IstsN 

460 CA 14 CslsN 

47° IF(A(T)*A(Q)) 140 148 11 

4Be 11 Lalen 

49° LL4ueN 

50° C8 12 Kal, 

51° LELen 

52- LLALLen 
53° FaA(L) 
She A(L) SACLE) 
556 1é A(LL)D @F 
566 14 CONTINUE 
57° 1& CANTINLE 
5ae 16 IF(NLL) 204 18% 20 


59-6 16 NLL #50 





Ser 


easel 


27 ge einai 
a 


6Ce 
64° 
bee 
63° 
Hae 
65- 
66° 
o7e 
68 
69¢ 
7Ce 
7ie 
7ee 
73° 
74e 
75 
76° 
77 
7&e 
73° 
&Ce 
aie 
R2e 
&3¢ 
Be 
B5e 
36° 
B7e 
RBs 
&9e 
90° 
91° 
9260 
93° 
S4e 
956 
96° 
37. 
98° 
g9e 
10C* 
loie 
102° 
103- 
104. 
105¢ 
106° 
107.6 
108> 
109° 
11¢° 
111° 
112° 


59 


7& 


ec 


26 
28 


3C 
4C 


au 


EC 


gc 


WRITE (IOTs21)NG 
WRITE( 18127) 
XSCALSCA(NLL)@A(1))/CFLBATONLL #41) ) 
IF(ISCALEeEGe4) GO TO 42 
YMINe4e0E75 
YMAXae1.0875 
D6 40 MCalrMey 
Misherced 
MoeN\eMCoNLl 
C8 4¢ weMieMe 
IF(A(J)@YMIN) 28,26,26 
IF (ACG) #YMAX) 40240730 
YMINSA(Q) 
G8 Te 40 
YMAXsA(Y) 
CANTINLE 
CONTINGE 
YSCALa( YMAX®YMIN)/100 00 
XBeA(1) 
Lei 
MYaMe4 
C68 &o Tegel 
Fele} 
XPReA(L) 
C8 55 1X#42102 
BLT ({X) BLANK 
BUT( 4) aL INE 
6UT( 103) #LINE 
IF(JZERB*EGeO) GB TA 59 
wZ5eYMIN/YSCAL 420 
IF (L224 eANDe JZ5103) SUT(UZIBLINE 
CONTINVE 
CA 60 Vela MY 
LLAL+Uan 
wPa((ACLL)@YMINI/YSCAL) +200 
Ie (.p>103) 8UT(103)sANG(L) 5 GS TE 60 
IF (LP <4) BUT (4) #ANG(J) sC@ TB 60 
BLT (LCP) SANG (SY) 
CONTINGE 
WRITE (yQTs2)XPRe (QUT ((Z)e 72814103) 
Lalei 
G8 TBH go 
wWRITE(LAT,3) 
CONTINLE 
WRITE (I6T+7) 
YPR(y)SYMIN 
Ce 9C KN#1,9 
YPR(KN41) 8YPR(KN) +YSCAL#10¢0 
PR(11)syMAXx 
KRITE (IAT 98) (YPR( IP)» TPeqett) 
FORMAT( 10(E440601%)) 
RETURN 
ENC 
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. hIGHEST ERROR SEVERITY? O (NO ERRORS) 


DEC HEX 
WARDS wORDS 
GENERATED CODES 32¢ 00144 
CENSTANTS! 5 00005 
LOCAL VARIABLES: 150 00096 

TEMPSs = 13 oo00c 


TOTAL FREGRAM; 488 COLES 





Le 
ce 
3e 
he 
Se 
be 
Je 
Re 
Se 
ice 
eile 
12¢ 
13. 
14e 
1Se 
ice 
17. 
18¢ 
19° 
eCe 
aie 
2ce0 
23¢ 
24e 
25°¢ 
EGe 
27e 
286 
cGe 
3Ce 


-C¢ 
Cc 
Cc 


m 


cs 
Cs 1c 
cs 





SUBRALTINE RETBY 


AC IOATA,ITESCy TIN, LISUT,I TAPE, NUMPL,CATA,RLAT, RLONG, KOGHM, TAGAP,LCN 
PY, RACEG, DEGRA, Khe G2, [DEG2,FOEG2,RCEG2,RTHF, 1TAP,RBOT, IBET,RLEFT, 

C ILEFTSRRIGTAIRIGTsSLTKsSLGkKsSINChsShPeFROToFTOPSFLEF ToFRIGT,NOEG. 
2 SLATsSLONG,BRTMP,XX, YY, INIT, X6L0, YOLD) 


SUBROELTINE RETBY, TS SET CHART BBUNCARIES 


WRITE CTISLT21¢0) 

FARMAT('E BNOS 1 LINE!) 
READ(IINs #)ITOPsIBOTsILEF Ts IRIGT 
REAC( LIN, SIITSF,IB6T,ILEFT, IRIGT 

FORMAT (41S) 

GUTFLT ITBF, [BOTs ILEFTs IRIGY 
FTePa] TOP 
FRETS] RAT 
FLEFTsILEFT 
FRIGTSIRIGT 
RTQPsFTAP*DEGRA 
RBSTaFBGT#CEGRA 
RLEFTSFILEFT*CEGRA 
RRIGTsFRIGT#CEGRA 

KCEGea(IRIGTe[LEFT) 

ICEG2#KDEGe 

FCEG2sl1DEGe 

RCEGesFDEG2*eDEGRA 
SMFSSINCK/60 eC 
RETURN 
ENC 
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StO000s ¥1V9S 4oau AWWNG 
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400004 y4vIS 2930» AWWNG 
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#00004¢g3SNNN ingelt AWWNG 
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30000¢ wvdS & vuo3a AWWNO 


AWWNG 
AWWAG 
AWWNG 
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papal 
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Daten, ct BMRB EE RS Bc entities AMM i iS 


ce ee ee ee ee ee ee ee eet eer tale ttt ee et ee es 


ee 


SLERBLTIKE RTOM2(RACs [CEGsAMIN) 
C SLBRBLTINE RTACM Te CONVERT RADIANS (RAC) T8 
C CEGREES (fCEG) AND MINUTES (AMIN) 
C FeR AMIN WITK @ DIGITS 7A RYGHT BF OeCrMaL 
B = RAC¥57¢29578 
AsABS(B) 
AwsA4Ce00CG05 
AsSIGN(As8) 
ICEGsA 
A ® ICEG 
AvIkK 8 (BA) #6000 
AMIN » SIGN(AMINSRAD) 
RETURN 
ENC 
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1 . SLBERBLTINE RTODM(RADsICEGZ AMIN) 

ee C SLERBLTINE RTACM TO CONVERT RADIANS (RAC) T6 
Qe C CeGRees (10EG) aND MINLTES (AMIN) 

be C FRR AMIN WITH Oo OLGITS TE RIGHT GF DECIMAL 
Be B = RAC #¥&7¢29578 

Ge AsbES(B) 

Je AwA+0 e005 

Be AsSIGN(AsB) 

Se ICEGsA 
1Ce A s ICEG 

tie AMIN & (BA) #60¢0 

1é6 AMIN # SIGN(AMIN,RAD) 


14e ENC 
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a 
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465 j 
1e SLEROUTINE SIMUL (NsA,XsEPSsINCICsNRC,DETER) 
és c SI™U0001 
20 Cc WREN INCIC IS NEGATIVE, SIMUL COMFUTES THE INVERSE OF THE N 8Y SIMUQQO2 
4e C A MATRIX A IN PLACEe WHEN INOIC 1S ZERB, SIMUL CeMPUTES THE  syMLCOC3 
Be C N SOLUTIONS x(4)0ee0eX(N) CORRESPONCING TA THE SET OF LINEAR SIMLQQ04 
6° C EGUATI@NS wITh AUGMENTED MATRIX @F COEFFICIENTS IN THE N BY SIMUQ005 
7s ¢ Nod ARRAY A AND IN ACCITISN COMPLTES TkE INVERSE OF THE SI™UOO00E 
&e ¢ COEFFICIENT MATRIX IN PLACE AS ABBVEe IF INOIC IS POSITIVE, SImMu0007 
Ge Tre SET BF LINEAR EGLATIGNS [S SOLVED BUT THE INVERSE IS NST SIMLQgo8 
1Ce ¢ CoMFLTEC IN PLACE. TreE GALSSwARCAN CAMPLETE ELIMINATION METHEDSIMUCOCS 
; 11° C IS EMPLOYED wITR THE MAXIMUM PIVOT STRATEGYe ROw AND COLUMN SIMUCO10 
i 12° Cc SLBSCRIPTS @F SLCCESSIVE PIVOT ELEMENTS ARE SAVED IN BROER IN SIMUOO11 
3 13. C The IRAW ANC VCOL ARRAYS RESPECTIVELY, K IS THE PIVET CBUNTER,SIMLOOL2 
; 14. € PIVGT TRE ALGEBRAIC VALUE 6F TRE FIVET ELEMENT» MAX SimUoo13 
4 156 ¢ The A\UMBER @F COLUMAS IN A ANC DETER TE DETERMINANT OF THE SIMUgo14 
; 16° Cc COEFFICIENT MATRIXe TE SBLUTIGNS ARE CAMPUTED IN THE (N#1)TH SIMUQ015 
; 17° C CeLLYN BF & AND THEN LNSCRAMBLED AND PLT IN’ PRAPER BRDER JIN S{MUOO1E 
; 18> C K(1)eeeX(N) USING TRE FIVOT SUBSCRIPT INFORMATION AVAILABLE SIMUQ017 
£ 19° Cc IN TkE IRBUW AND UCOL ARRAYSe THE SIGN BF THE DETERMINANT IS SIMUQO18 
4 20e C ACYLSTEC, Ip NECESSARY, By DETERMINING IF AN 8DD 6R EVEN NuMRERSIMU00I9 
4 2h° ( AF PAIRWISE INTERCHANGES 7S REQUIRED 76 PUT THE ELEMENTS 8F THESIMLQQ20 
22° c wORC ARRAY IN ASCENCING SEGLENCE WhEeRE VERDC TROW(7)) = UCBL( 1) «SIMLOO21 
: Se ¢ IF The INVERSE IS ReEGSLIRED, it 1S UnSCRAMBLED JN PLaCe US NG srMuoo22 
i Phe C Y¥(t)eeeY(N) AS TEMPORARY STORAGE» THE yALUE OF THE DETERMINANTSImUQQ23 
obe Cc IS RETURNED aS THe VALLE BF TRE FLNCTIBN. SHBULD THE POTENTIALSIMUQQ24 
be Cc FIVAy BF LARGEST MAGNITUDE SE SMALLER IN MAGNITUDE THAN EPS, S1U0025 
7° C Tre wATRIx IS CONSIDERED 78 BE SINGULAR AND A TRyE ZEREB IS SIMUQ026 
28 Cc RETURNED AS ThE VALLE GF TRE FUNCTION S1¥lLo027 
296 Cc SIMLOO28 
30° [s REFERENCE; CARNAHAN, LUTKER ANC wILKES (4569) ‘ SIMUga29 
31. ¢ APPLIED NUMERICAL METHODS: WILEY, NEW YORKe $1"L0030 
3e° C S1mLOO31 
33° C CONVERTED TA XOS FORTRAN [Ver BY He FERKINSs APRIL» 19706 SIMLQ032 
34° Cc SIMUC033 
35° CIMENSISN IRO@w(50)2 UCOL(S0)s w8RD(S0)s ¥(50)e A(NRCANRC)s X(N) $I™uc035 
36° G SI”U0036 
37° MAX # A $1¥U0037 
386 IF ( INCIC*eGE*O ) MAX ® KN + 1 Sr™U0038 
39° € S1lo039 
4Oe G eeseetS N LARGER TRAN SC cevrce SIMUOO4N 
42 WRITE (108s20C) Simuoo4se 
43° SIVMLL = QO» SIMUQ043 
44e RETURN SIMUOO44 
a5 Cc SIMUQ045 
46° Cc sveee GEGIN ELIMINATION FROCECURE woees SIMUQQ46 
47 5 CETER @ je SIMU0047 
48. cé 18 Ks ty N S1MU0048 
49° kKMg a kel SIMUQO049 
4 SCs C SIMUOO5C 
: Sie C eveee SEARCH FOR THE PIVQT ELEMENT covee : SIMUQ051 
52° PIVOT = Oe SImMuUQO052 
53° cA 14 I 8 1s N S1MU0053 
54 c6éi1 «8 di, N $1 M4U0054 
55° Cc eeeee SCAN ITROw AND [COL ARRAYS FER INVALID PIVOT SUBSCRIPTS seeeeSIMUQOSS 
56. IF ( KeEGe1 ) GH TA 9 SIMU0056 
57. ca a ISCAN © 1y KM1 S1MLO00S7 
58. C68 SCAN = ts KML SIMU0058 


596 IF ( TeEGeTROW(ISCAN) ) Ge Te 14 S!IMU0059 
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466 4 
&Ceo 8 IF (€ JeEGevCOL(USCAN) } GO TE 11 S1MU0060 ; 
ele S IF (CABS(A(Iay)) eLEsCABS(FIVET) ) G6 T6 11 SIMUC061 3 
o2e PIVOT # A(low) SIMUCOE2 5 
3+ IRAW(K) & J S1MU0063 fi 
64e ~COL(K) # ¥ S1™U0064 3 
65° 11. CONTINLE SIMU9065 : ij 
6€° Cc SIMLO066 3 j 
67° ¢ eeese INSURE TRAT SELECTEC PIVOT IS LARGER THAN EPS eooes S!MU9067 
6&e IF ( DABS(PIVOT)«GTeEPS )») GE TS 13 SIMLO068 i 
6Se SIMUL = Qe SI™LO069 
We RETURN SIMU0070 é 
71° ¢ SIMU0071 " § 
Jee Cc eeeee LEDATE THE DETERMINANT VALUE ecocee SIMUQ072 : 
72 13° [ROKK = JROW(K) $1™U0073 
74e eCOLK = YCBL(K) SIMLO074 
756 CETER =» DETER*FIVOT SIMUQ075 
76s Cc 4 SIMU0076 
776 Cc eveee NORMALIZE PIVOT ROW ELEMENTS cccoe S1"UQ077 
TR. ce 14 Js ly MAX SIMU0078 
796 14 A(TROwksy) # ACIROWKs J) /PIVET SIMU0Q979 
Tor) C S1*LOO80 
Ste Cc eeeee CARRY OUT ELIMINATION ANC DEVELBP INVERSE ceone SIMLQ081 
gee A(TROWK,JCOLK) = 1e/PIVET S1MU0O8e2 
83° C6 18 Isiah S1mUQ083 
Bue AILCK = A(IsyCOLK) SIMUCO84 
&5> IF ( LeEGeIRObK ) G8 7e 18 SIMLOORS 
860 Alla COLK) & » AIUCK/PIVET SIMUOOK6 
87° C617 WG st, MAX S1™U0087 
RRe 2? IF ¢ GeNEoyCBLK ) A(lag) « A(lag) © AILCK#A(IROWK,Y) SI*LQ08& 
Bg 18 CENTINLE SIMUQOR9 
90° ¢ : SIMU0090 
91° eevee GRDER SOLUTION VALLES (IF ANY) AND CREATE JARD ARRAY eeeee SI*UQQ91 
92° c6 2c I *# ls N SIMLOOS2 
93° TROnl = IRBy(1) SImuoo93 
She COL] = JCOL(T) SI*U0094 
g5« vERD (yRewy) & YCALy s1*Uo095 
| Sé. 20 oF € yNOeCeSEeC Y= X(eCeLy) & alpReby, Max) $;ML0036 a 
57° C SIMUQQ997 : 
GRe € ereere ACVUST SIGN oF DETERMINANT eecee SI™Ugo98 
99° IF(N,SEGed) GO TO 24 
10C* INTCR = O Stvyooss 
ic1e AMi we Rod SIMUL0100 
ices CS 22 1 8 1a NMy SI™Uo101 
103-6 IPi =» y + 1 g1™u0102 
ic4. C8 22 = Ip SIMU0103 
108« IF ¢ veROty?) wae cenpiiit G6 TE 22 Si1*Lo104 
106é¢ wTEMF = JORDI ¥) srMuoios 
167* eORDi) & yORD(I) SI¥LO106 
108. e8RD(T) * sTEMP SIMU0iO7 
109° INTCH » INTCH + 1 SIMU9108 
110° ze =CONTIALE SIMUQ109 
tiie IF ( INTCK/A*2,NEoINTCR ) DETER © = DETER : S1MU0110 
112° c Srmudili 
113° ¢ evoese If INCIC IS PASITIYE RETURN WITH RESULTS seece SIvuoi12 
1i4e 24 IF ( INCICeLEeq ) GE TA 26 $1¥U0113 
115¢ SIVMLL = DETER S1MU9114 
116° RETURA SIMUQL11I5 
117° C ; SIMUQ116 
Like C eevee IF INCIC I$ NEGATIVE OR ZERB, LNSCRAMALE THE INVERSE SIMUg447 
119° ¢ FIRST BY REWS sence S1MU0118 
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Y(CCOLI) = A(IROWIou) Siflo123 
ce 28 If * is N SIMUO124 
A(leay) = YCT) S1IMuUQ125 
eeece TREN BY CBLLMNS ecocce SIMU0126 
ce 30061 = tok rd Ringer 
Ce 28 J & tp N srmuoies 
IROk, ® IROW(Q) SIMUOL29 
COLL =» UCOL(c) SIMU0130 
YCTROw) © A(leyC@Lu) Stmuo131 
A gg aE ak SIMUG132 
A(Tsc) # Ylu) e SIMLO133 

SIMU0134 
eeeee RETURN FOR INCIC NEGATIVE BR ZERO eoeee S1MU0135 
SIMLL # DETER SIMU0136 
RETURN S101 a7 
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eeees FERMAT FAR BLTPUT STATEMENT eeeee S1MU0139 
FORMAT( ickch Tee BIG ) SIMLOL4C 

SIMUOL41 
ENC SiI™uci4e 








SENN ee 


AONE em It er  e 8 N ETOR EN co ee SRR A eR EE BOE TENS CO Re RRS 





ote 


TS WORTIIG report ence 


wo 


wt ett et wtet etet et O 


rear gqooo 
I1g3f sqo00 
NVDSI 343000 


Squem 
330 


xV¥W 63000 
345000 92 
94000 fT 
3e1. «13av7 
X3H 
A £6000 ,vuuy 
A 00000 ay tvds 
A 40000 wivds 
A 89000 avs 
A 00000 wVv9S 
A ga000) avs 
A 33000 ytvos 
A Y0000 avs 
A gQ000 xy vos 
A Qg3000 ytv3S 
NIMLNI 904dS 
307 ssSv1) 
x3H 


em@al wq000 
IMgulI #qQ000 
f 33000 
A £6000 


€7t00 

61000 

39000 
3989 
X3H 


A 
WIS 
TWN 
TW» 
NvoSr 
rior 
r 
eMoul 
TyI 

I 
savd 


Seen 


Dt he ee os ee ey 


3qAl 3wYN 


» plneiabedinrahembciaks tie o 


AWWIG 


Tt 


Sdyuem 
330 


§3000 
£9009 
339090 
$9909 


dW3auf 
warty 


Gaer 


OE 
ed 
tT 


e€et0o 

£3009 

99009 
301 
x34 


3990906 
33500 
33900 
v39090 
$9909 
g9900 
433300 


#9990 
99909 


499006 
€9900 
397 
x34 


Oe a 


V3av7 


AWMNY 
y¥IWOS 
sqV955 
¥y1VIS 
AVANY 
S1V9S 
4#7¥5 
sIV9S 
4y1V9S 
419s 
4Iv3s 


sSv45 


89P 


Nd 113S6 


#9000 
29000 
33000 
£€000 


Tygl 
A199" 
LOAld 

3830 


Zet90 «¢2 
13099 o2 
E*099 6 
+. 387 
x34 


x 
LeAld 
N 


» 
aye” 
1709* 
Nvos! 
ImOyl 
4DLNI 
S42 
WI" ITV 


34¥N 


UL UL me ee ot tee elie I 


3a4ad 


738¥7 


ANT Hd6 


OLIN3s 


BOTs 4 


:g3ah7944 Saved9ygaIS WwvH3lx4 


Sava 


$0357 sdydd9Nda ls JISNIYING 


WaAIS 399909 


¢SLiNIQ@g ANN] 


(SaG484 9) NBAN8D »NVI¢g 


TwN £9990 
>AMgyl 19900 
TAM dI000 


“eal 


T9900 


4H9LNI 99999 
NvIs7 999090 
4 ¥39990 
Was 90909 


r(sqyomM 922) s3q@vIuvA 1V¥504 


2ttoo 
3y000 
ZE900 


3067 
x 3H 


AAW 
tT 

. 

T 

os 

T 

os 
AWANA 
AWAD 
AAAI 
@eant 
Saye™ 

339 


'r>rarrrrrrrran 


82 
gt 
8 


7138a¥7 


99090 
T3000 
63090 
69000 
22999 
€£099 
19099 
39095 
03909068 
23030» 
GI090« 
3e¢4 
x34 


9 


s 
Le) 


59445 
43S 
waqvos 
yqVvIS 
41V9S 
AVSNY 
AVS 
AVMNYV 
y1v95 
MqVOS 
Ayidy 


$5719 


oT99 
62999 
2099 


-eee 


387 
x34 


CL UL ee tt me tee eee I 


EPr ee 


~~ oe 


<2 
at 
S 


73a 


VWalS 
JHN 
xXVA 

daz" 

»1869* 

199° 

*4oul 

“oul 
SIani 
43139 

v 


3YVN 


eg reas - 





FIGREST ERROR SEVERITY: O (NB ERRORS) 


cec HEX 

wO8RCS wOROS 

GENERATE CSLEs 329 co149 
CONSTANTS? 2 cocde 

LOCAL vARIJABLES! 2ec cococ 
TEMPS? le cococ 


sil SADA icra Ayah RIES 


TATA. FROGRAM: 563 cc233 





eee RR, Se Fn acre aN ‘ sit 2 
* hen fe UR a 5 alti a tia, Si 


we 
470 
5 
1° SLERBLTINE SFLATCISTA,RLAT,RLONG, VEL, THICK, VELW, WATTK, VMANT,XX,YY, ; 
Ze 1 YFACaZeTshGT, ACs ASsANGEZPEDIST) | 
3° C SULBROLTINE SFLOT, PLOTS SEISMIC REFRACTION FRAFILE DATA 3 
ye Cc TN COLUMN FORM t 
i CIMENSI®AN VEL (@),THICK(8) ; a 
ée ; CATA RADEG/57029578/ : 
% Je ACT#& 
H Be C LAPLING CaLUMN 
Se AISTA ® ISTA 
, 1Ce AN 8 eCelC * ZhYT 
: eile YN 8 C#4C 
: 1é° XFo a (XN#ACI4( TN#AS) 
5 13. YP & eleO#(XN#¥AS) + CYN#AC) 
4e XT 3 XX + XP , 
15° YT # YY+*YP 
1€* CALL ALMBER( XT, YTahGTsAISTA,ANGBs 1) 
17° CALL FLET(XX,YY,3) 
18 IF (1SW(5))490, 465,490 
19° 465 XN weCelC 
ede YN 8 Ce4C*(Co12#ZFT) 
216 XF = (XN#AC)+(YN#AS) 
eee YP = =4eC*#(XN#AS) + (YN#AC) 
ese XT 8 XX + XP 
Z4e YT = YY*YP 
ete CLENG s RLANGsRADEG 
cée CALL AUMPER(XT,YTsHGTsCLENG, ANGE, 2) 
27° XN 8 #0910 
eke YN & Ce4O+(Oee4eZhT) 
z9e XF = (XN#AC)+(YN#AS) 
3Ce YP w #1eC#(XN#AS) + (YNHAC) 
31° XT = XX + XP 
32 YT = YY*YP 
33° CLAT =» RLATYRADEG 
34-6 CALL AUMBER{XT, YTS RGTZCLATs ANGEs 2) 
35° CALL FLOT(XX,YY,3) 
; 366 C PeCIN FLlatryNG COLUMN 
a 37° 4Soq LINO « Q 
38e MAX = ACT) 
39° JF (vELh~o*001)510251025CC 
4Ce 5cec CVEL = VELW 
41 COWN & ehATTK/YFAC 
42° G8 T8 100 
43° Sic LIND w LINC + 4 
4he IF (LINC #MAX)5422530853¢ 
456 S1E TF (VEL (LIND) ©C+001)510,510, 520 
466 5é2c VEL = VEL(LIND) 
476 TF (THICK( LIND) -Q0004) 52225222524 
48s See IF (CVEL*7¢9)S52405230525 
49° 5@3 Cehne-(BDIST * 20) 
5c G6 T® 10C 
5i°¢ 524 COWN # eTRICK(LINC)/YFAC 
F E26 Ge Te 100 
53° 53c TF ¢yMANT#=¢#901)55075504E40 
54° 54c CVEL © VMANT 
55. COKN # w(BOIST # 260) 
; £ 5é« yVMANT z C#0 
57° G8 176 


100 
5B. C COMPLETED PLATTING THIS CBLLUFN 
59° 5&c Ge Te 75¢ 
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7E60 
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776 
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796 
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Ble 
&Ee 
K3e 
B4e 
Se 
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87s 
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ce 
C FLATTING COLUMN INSTRUCTIBNS 


cc 
C WRITING TICK LINE AT ANGLE (ANGB) 
icc XF & (BDIST#AC) 
YP © e1¢e¢C#(BOISY * aS) 
XT = xXx+#(ABS(XP)) 
YT « YY+yYP 
CALL FLAT(XTsYTa2) 
CALL FLOT(XxsYYs3) 
C wRITING VELOCITY VALUE 
tic XN & e¢e25 * ZhT 
YN & #Ce0S * ZHT 
XF = (XN#AC) 4(YN#AS) 
YP @ 1 oQ0*(XN#AS)+(YN#AC) 
XT =XX4XP 
YTsYY+YP 
CALL ALMBER( XT, YT» HGTsCVELs ANGBs 1) 
CALL PLAT(XXsYY¥e3) 
C CB6ATINLE FLETTING D@WNWARD LINE 
tec XFS D@WN #AS 
YF= DEWAN #AC 
XX® XX#XP 
YY¥s YY+yYP 
CALL FLOT(XX,YYs2) 
Ga TA 51C 
75c RETURN 
EAC 
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FIGFEST ERROR SEVERITY? 0 (NB ERRORS) 





CEC hE X 

wORES wARDS 

GENERATED COCE: 299 cc12e 
CONSTANTS: 16 coc1¢c 
LOCAL VARIABLES: 16 eccic 
TEMPSS 19 C0Gi3 


eeene eeenrne 


TOTAL FREGRAM$ 35¢ CO1SE 





ARRAS ek HN PR ESO hl GN 





Acree NN! CE A Ct TET LCL 


1 SLERALTINE SPOT(XX,YY) 
2e C 
3. € SLPROALTINE SPOT PLATS A CIRCLE AT CATA FAINT 
4e € 
Se C USES CALCO8MF SUBROUTINES 
6e C 
Ze ST = XX + Cce02 i 
Be TT = YY = OoCl j 
Se CALL PLOT(STsTT,3) / 
ice YT = YY # OeCi : 
lie CALL FLOT(ST,YT,2) 
1é° xT = xXx + O00] 
13° YT =» YY + OeCe 
14 CALL FLOT(XT»YT22) 
{Se XT cs XX o@ Ceol 
; 166 CALL FLOT(XTsYTs2) 
i 17¢ XT = xx © 0°02 
t 18 YT » YY + Cel 
: 19° CALL FLOT(XTsYT»2) 
i 2ce YT = YY = Ceol 
4 21° CALL PLOT(XT,YT,2) 
i eee XT = Xx = OrO1 
Eze YT 2 YY = Ceo2 
ole CALL FLAT(XT,YT,2) 
eEe xT = xXx + Orci 
Zee CALL FLOT(XT»YTs2) 
27° CALL PLOT(STsTTs2) 
e8° CALL FLOT(XXs YY, 3) 
e9e RETURN 


3C° ENC 
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ide 
Se 
4&e 
Be 


é° 

Je 

Be 

Se 
1Ce 
t1¢ 
1ée 
13¢ 
l4e 
1Se 
16° 
176 
1&8. 
1Se 
2ce 
2le 
eee 
23° 
zhe 
e&be 
eee 
e7e 
eae 
eSe 
3Ce 
Sie 
gee 
336 
a: 
Ssée 
37° 
3&e 
39° 
4Ce 
4SJe 
4ee 
age 
Khe 
4&e 
4E° 
47e 
4Be 
4S 
Ce 
5i- 
See 
53° 


nm eAANnA ANNA 


ana 


LSES CALCEMP SUBROLTINES 
MOCIFIEC TS MAKE SSh(4) DEFALLT NS MARKING 9 8CT 72 


VERSION OF ec AUGUST 19742 CrECKS 1S(4) 16 DEFINE SYMBPL ANNA™ o> 


476 i 
SLERBLTINE SFOTS(XXe YY) J 
SSW(4) =» C FAR SUPPRESSING FLOTTING SF ANY SPOT | 
= 4 FOR PLOTTING A CIRCLE AT CATA POINT 
8 ¢ FAR PLOTTING A CST AT CATA PAINT ; 


ASheTShl4) 


INCREMENT JNDEX EY BNE TS PERMIT LSE BF CO Te STATEMENT 


icc 


sgs 


20c 


3cc 
4CC 
5CC 
6cc 
7CC 
8CC 
9CC 


ASwatSnel 
GB T6 (99S+10C2200230C#4C0#5C0#60C27002&EC 2900) NSh 


TO FLAT A CIRCLE ARFBUNC CATA FOINT 

ST = xXx + Cece 

TT & YY © Orel 

CALL FLOAT(STsTTs3) 

YT © YY + Cecl 

CALL FLOT(ST,YT,2) 

XT = xXx + CeQl 

YT = YY # CeQ2 

CALL FLET(XTsYT,2) 

XT = xx © CeCl 

CALL FLOET(XTs YTs2) 

XT = XX & CeO2 

YT = YY + OroO1 

CALL FLOT(XTsYTe2) 

YT = YY = CeQl 

CALL FLOT(XT,YT»2) 

XT = xx © CeQl 

YT s YY © Cede E 
CALL FLOTIATSYTy2) 
xT a xx + O01 : 
CALL FLOT(XTSYT42) 

CALL FLOT(ST,TT,2) 

CALL FLOT(XX,YY,3) 

RETURN 


T6 Flat ONLY a Det BY LeheRING AND RAISING PEN 


CALL PLOT(XX,YY,2) 
CALL PLOT(XXs YY, 3) 


8ThER GeTIGNS id BE IMPLEMENTEC 

RETLRA 

RETURN 

RETURN 

RETLPK 

RETLURA ; 
RETURA { 
RETURA a 
END 
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478 
ie SLEROUTINE TICAL(RLAT*¢RLeENGs [Ye IDs lhe TMs CLSshONKs0ID) 
Ze C WRITTEN BY Ce GANTAR ACCORDING 78 LOAGVMAN AAD USCES FORMULAE 
Ze C ACAFTEC FAR SIGMAe7 ALGe 69 EY we WOLFE 
he c TRE BLT FUT OF THE PROGRAM MAS BEEN CKECFED WITH THE Ge PRIS. 
) Se C Be6K FBR TRE YEAR 69 WEIRD RESULTS BLT ARE IN GENERAL AGREEM*N7 
é>  -¢ 
7e C RLAT(+ JP NORTR),RLONG(* IF EAST) SGEBGR COBRCeIN RANJANS 
i Re Cc IYsYEAR@1ECC IDsDAYs,PREGRESSIVE OF THE YEAR 
| Se € Ih, IMerOUR, MINUTES (GIT) 
1Ce € CLS*TICAL CORRECTION(MGAL) 
rile Cc FONK#bheNKaSALQ TERM(MGAL) TE EE ADDED Te CLs 
12° COLELE FRECISIEBN DLly,DIC,CTOsCBISs CENT» CS eS, Dy bs DPs DNs OP Lo Pie Ps 
] 13e 10"EGA,SF,CSP,SKP,DSh,S},SENAM,CESOM,SENKE,CASNE,SENNU,SENAL,CBASAL, 
14° 2CEqabalysChle Chl y,CSZsCST,DMUNs RRBs FCy »PCoPC3,DSUN, ATs SEN] » FNU 
i 156 COLELE FRECISION N 
: 16° COLELE FRECISIEN RLAT,sRLENG, CASEL 
: 17e COUBLE FRECISI@N ARCAS,ARSIN 
i 18. COLELE FRECISI6N DYM,OIBIS 
i 19° IMPLICIT FEAL (NoL) 
| eCe KBPLOAT(IY) /4ee] 
| ele XLexeFLOATCINT(X)) 
| 2e6 IBIS#IAT(X) 
i 23° IF(XLeLT¢Ce2) TBISsIBySe1 
j 24e CIYsly 
256 CIC#IO=4 
26. CiksIh 
ij e7e CYvaIM 
i 28s CIRIS=IEIS 
| 256 CTCECLY# SES eCOFDBIS+OeECCHDIC +e O4¥1E66EE7CO#D H+ eOG0E94444D0#DY™ 
3¢e CENTsDTC/36625 eC 
31° CS84¢72ecggSlC+8399*79927ECQ*CENT+ eC QcosS0c#CENT##2 
3e¢ SeCvO0(CS26*2831853C718CC) 
: 33° Che 4 88; 6280946289333 S54 Cc #CENT +9 *cgcooS0caCENT eee 
| 34. rSCMO0 (Che 60283185307180C) | 
35° Cp25 0839515206471 og 18o41lcHCENT@*cC#oco180caCENTee2 
; 36° FaCh6d(CPs60283148530718C¢) 
: 37° CN84 062360309 %3597574 460 C*CENT*¢ *ocgc gel aCENT#e 
i 38-6 Kechen (chs € 28218530 18CC) 
296 CR1s49Sc82250 94099300030 CHCENT+c*Q00CO8COaCENT exe 
4g Py =CMBC (DP 66028318530718CQ) 
. 446 AMEGASCe 4CS93E0DCH0eCO02E7CO*#CENT 
; 4e°e SPaeSeP 
43° CSP42eCo*SP 
44e SkFaSeZeDOehs+P 
45e it baer bee 
46e $1 *S+04998Co* SIN(SP) +e¢c 376750 ¢#DSIN (DSF) +0 Q154Q091D9*DSIN(SHP) +09 
476 1C7693SCO*#DSIN(CSH) 
ue SENGMeCSIN( OMEGA) 
49e« CESEMsCCOS(8MEGA) 
5Ce SENNESCSIN(N) 
St° COSNE eDCOS(N} 
52° AT#ARCES(CDAB (699597936*CESOMe 068968308 *SENSM*CBSNE ) ) 
53° SENT ®DSIN(AT) 
54e SENNL eC 896839080 G#SENNE/SENI 
656 FNUSARSIN(SENNL) 
566 SENAL sSENOM*SENNE /SENI 
57. COSAL*COSNE*OCAS (FRU) *SENNE*SENNU*COSBM 
58 CAS8L#1°DC+COSAL 





596 LeSleNe2elcaCATAN2(SENAL »CASBL) 





2 snes eemest 


' 
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6Ce 
61° 
62 
63° 
64 
65+ 
660 
67. 
68° 


69e- 


7Ce 
74° 
Jee 
73¢ 
74e 
75° 
760 
77° 
78.6 
79° 
8Ce 
&ie 
B20 
&3° 
Bae 
&5. 
&6* 
87° 
88 
89° 


* 479 


CE19e00339802080COe e000084CCeCENT 

L4eh+DE1 eDSIN(hePt ) 

Gks570¢295780en 

GLONGaeS7 ¢295780eRLENG 

TREPLGAT( IH) SFLOAT(IM) 76Ce 

CK119 001745329000 ( THalSeloe180eD0°GLONGeGr) 

ChISChKI1 eFNU 

CSZSDSIN(IRLATPSENIFDSIN(L) *OCOS(RLAT) #( (CCAS(AT/2000) ##2*0CAS(LeaC 
THI yeCSIN( AT 72000) se2e0COS(LeCrl))) 

CSTPCSIN(RLAT) @SENQM#OSIA (Ly) +OCOS(RLAT) #( 095872510Q#DC6S (Ly @CHI4 
1)%0041274900#DCaS(LieChy1)) 

CMUN9 2060144330"114104325C30°4240COS( SP) 4708644004 4eDCB8S (DSP) +2°00 
1gigCel3*DCOS(SHP)+16460C7D913"0COS (CSW) 

CSUN = 6068896392001 441 0118955001 540C8S(Hepy ) 

RO 86 09783880980 (1 eCoseCC3367COMCSIN(RLAT Ieee) 

PC19508860*21#0MUN ; 
PCL ePCieRWOeOMUN 
FC1SFC1*OMUN 
PC298s8290421*DMUN 
PCeepC2sOMUN | 
PCo2ePpCeeO0MLNeRHE 
PCeePCe*DFMUN®RHG 
FC391e59520%29#O0SUN 
PC3aPCaeREO*OSUN 
PC3sFCQ4O0SUN 
CLEFPCL#(3eOCHCSZH2ul fC) OPCE#(5eDOHCSZ##3e3eDO*CSZ) +PC3*(3eD04#CS 
1Tae2e4eC00) 

HONKe 6¢037004(3¢QDO*CSIN(RLAT) ##201 00) 

RETURN 

END 
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RIGHEST ERROR SEVERITY: ¢ (NA ERRORS) 


CEC hE X 

wORCS WORDS 

GENERATED CECE: 450 ccice 
CONSTANTS$ 116 COO74 

LOCaL VARIABLES! 99 C0063 
TEMPS: 2e Ccc1é 


T9TAL FRAGRAM$ 637 CO2AF 
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a: SUPROLTINE VETBY P 
. AC JCATA, TEGD, TIN, LIGUT,ITAPE,AUMPL,CATA,RLATsRLONG, KOGH™, LAGAP,LC’. 
2° BTeRACEG ADE GRA, KDEG2, LDEGEsFDEG2sRDEGOsRTOFs I TBPARRET, IBPTSRLEF, 
we C JLEET,RRIGTsIRIGTsSLTK,SLGK,SINCH,SMP,FEBTAFIOP,FLEFTsFRIGT,NOEG- 
Se C SLAT,SLONG,BOTMP,XX, YY, INIT, XBLO, YSLD) 
6° ae 
Je Cc SUBRBUTINE VETBY, TO SET CRART BSLACARIES #Y 
Be Cc APERATOR ENTRY BN CANSOLE TTY 
Se c 
1Ce Cc FAR NON INTEGER ChART BSLACARIES 
rile (3 
12e Cc CALLS SUBRSLTINE ARLIM 
i 13° C F 
: 1460 Cc 
; 15° CALL ARLIM( LIN, TLSUTsRTEP,REOTARLEFT,RRIGT) 
466 SMP SSINCK/EQ 00 
17. RCEGZe(RRIGTeRLEFT) 
18° FOE Ge aRDEGE#RACEG 
196 RETURN 
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SUBRAUTINE WEI1G2( XPaLs ZPeLeNVERTsXeNFTSeSLMsRHBs TESTS OSU) 
TRIS IS VERSIONS 2 WeHICk ALSO COES WEJGRHTEST 
TRIS SLERSUTINE IS T6 BE LSED WITH TALPLOTe. IT CAMPUTES 
TRE DENSITY CA@NTRIBLTIABN BF A FOLYGBN OF DENSITY RHE 
ANC ADCS TKE CONTRUIBUTIGN TO TRE SLM. 
XFAL, ZP8L ARE THE CE8GRCINATES 8F Tre VERTICES GF THr FPRLYGS 
NVERT IS THe # OF VERTICES IN A POLYGON 
x IS ThE COBRDINATEE AT WHICH WE WISh ThE SM CALCULATED. 
NFTS IS TrE # GF PAINTS AT WHICr 4E WISk TRE SUM CALCULATED 
SUM 1S The ACCUMULATED DENSITY CONTRIELTIAN 
A RESTRICTION IS TRAT TrE FIRST THREE (3) PAINTS BF A POLYNOMIAL 
MAY N@T HAVE TRE SAME X CBBRDINATE® © ThE FIRST TWele) MAY 
@E TRE SAME, ANDO AFTER TRE FIRST VERTICE ANY NUMBER mAY 
TRE CIMENSION BF XPEL,ZFEL, MLST BE 3 GREATER IN THe MAIN 
FROGRAM THEN The ACTUAL A@ BF VERTICES (AVERT) 
CIMENSISN XPOL(4)eZPOL (1) 0X01) 0204) ab 04) sSUM(ADDNFLAG(10)4 
1CIS(1C)sSBRT(1C) »sKFLAG(1C) aTeEsT(d) aCSL(1) 
ZPOL(NVERT#1) sZPBL(2) 
ZPEL(NVERT*2) #ZPQ8L(3) 
ZPEL(NVERT+S) @ZPQL (4) 
XPOL(NVERT#+1) sXP@L(2) 
XP@L(NVERT+2) =XPOL(3) 
XPBLINVERT+3) sXP6L(4) 
C8 3cc IsisNFTS 
SL 206 
INTERS1 
[T6L T5108 
NOLMBNVERT#2 
wuts 
XXsxX(1) 
C68 S IGa14106 
CIS(IG) s+ 
NFLAG(IG) 94 > 
ITF (XXexXFOL (37) 11,15, 80 


yee 

ROL aNyERT +1 

IF (XX=XFAL (2)) 11214280 

vyel 

NOLMaNyERT 

IF (XX@XPQL(1)) 11217280 
CONTINUE 


WRITE CTI9SULTs128) 
FORMaT(' ####eeeee FIRST 3 VERTICES FAVE ef Ge X CBBRDe ' ) 
CONTINUE 
CONTINLE 
ww Fut 
re iuent meee ) G6 Te 1C¢Cc 
IF (¢ XKeXPBL(UU)) 11,280,281 


ACay 
IF CRXeNEoXPAL (wud ») G8 TE B4 
ww Fut 


58 T8 é2 

EES INTER) #( (xpOL (gu) Xx) #ZPBL( ged) +( xx XPAL( yet) #ZPOL( yu)? 
C/U CXPOL (ds) @XPOL (ved) )) 

INTER SINTERSY 

G6 T6 a 

TrIS seCrren HANDLES INTERSECTION WITH a VERTICAL 

LINE @R INTERSECTION THRL BNE BF The VERTICES OF THe PRLYGEN 
IF (XPOL(Ud+1) eGTeXX) G6 TE 26 








. 
; 
: 
: 
{ 
| 


SO, de eas A RAR RD a Sa in negara 


SosN eA Raa Oe 


6Ce 
éle 
é2° 
63-6 
64e 
ose 
66° 
67 
686 
69° 
7Ce 
-7ie 
Jee 
73° 
The 
75° 
76¢ 
77 
78. 
79° 
&Ce 
Sie 
&Ee 
Rd 
Bye 
&Se 
Bbe 
a7 
o8e 
53° 
9Ce 
91° 
92 
93° 
S4e 
95° 
S60 
37° 
SB 
99° 
10Ce 
101¢ 
102. 
103-6 
1046 
105¢ 
106. 
1076 
108 
10S° 
11Ce 
iiie 
112° 
113° 
114. 
1156 
116° 
117s 
118. 
119° 


485 of 


IF (vJeGE*ACLe =) G@ TO 100 & 
CISC INTER) $(ZP6L( du) +ZFOL( UAC) 20 44 


INTER®INTERS] 2 
C8 Te &0 b 
ze IF (cCACeEGeun) GB TSH 11 a i 
CIS(IATER) ®2FaL (CAC) = 
NFLAG( INTER) s INTER 2 
INTERSINTER+4 & 
CIS(CINTER) sZFAL (eu) { 
NFLAGCINTER) sINTER|4 : 
INTERSINTERS] ; 
G8 T6 ii : 


&o CONTINUE 
wu Fur tt 
IF (cdeGTeNOLM ) G6 TE ICC © 
IF (XPO@L (GL) "xx) 8C29C2E1 
$9 wAC Feu 
$e IF (XXeNEoXFOL(UL+l) ) CB TS S4 
we tuctl : 
G8 Te Se 
$1 CIS(IATER) 3((xXX=XpOL (Uy) ) *ZPEL ( G21) + (XPOL (Jyed)eXX) #ZP8L( UU) ) 
17 ¢XFOL (Cued) = XPHL (UU)? 
INTER sINTER44 
G6 Te 141 
$4 IF ¢( XFO@L(vueg) eb TeXX}) CB TE S6 
CISCINTER) 8(2FEL (UU) +ZFOL( UAC) )/26 
INTERFIATER+L 
G& Te 11 
$6 IF (eaCeEGeye) GS TA 80 
CIS(INTER) sZFAL( UAC) 
NFLAGCINTER) SINTER 
INTERBIATERSL 
CISCINTER) sZFOL( Cy) 
NFLAGCINTER bBIATER@ 4 
INTERSIATERSL 
G8 Te ao 
CONTINLE 
wRITE (1084517) 
517 FSERMAT(tOIS (NFLAG?) 


o 
oO 


we hAVe NOW LACZTEC ALL Tre INTERSECTIONS WHICH RUN DAWN THE 
BOCY AF A FHLYGBN AND NEVER CROSSES IN AR BLT 
TRE INTERSECTIBN WILL NOW BE SORTEC FREM SMALLEST TS LARGEST 
INTERSINTER@4 
TRIS CkANGES INTER SOB THAT [T NOW & The & SF INTERSECTIONS E 
IFCINTEReEG*C) GO TE 30C 4 
IF TRERE ARE NO INTERSECTINS WE BYFASS The COFUTATION : 
6F TRE SCISTANCE 
SORT FREY SMALLEST TS LARGESR 
C@ 142 TUaisINTER 
wel 8] 
KFLAG( IL) sNFLAG(41) 
SO@RT(ILISCIS(14) 
C8 110 Uses INTER 
IF(SORT(IL) eLEeCIS(yu)) Ge TS 110 
SSRT( ILI SCIS(UL) 
KFLAG(IL) sNFUAG( LU) 
wel LU 


aNan oO ANN OAKDOGN Or 





cosine a REL 





486 
ae 11C CONTINLE 
° CIS( UL) 81 0E7 
122° 112 CONTINUE ’ 
, Speen, 
(SE8RT(1)) zce i 
xa: OR ote oh 2201220242202 4 
ee | 
e IF(SORT(2) eLT20) OSSR*®SART( | 
uae SLB Ta (SARY(1)-CDSAR) gs 
Bee ENE 
° 108252) INTER 
aaie Cc WRITE (108,518 
d, (SORT IX 3 
132° se Pere a (SORTCIX) sKFLAG(JX)21X81,4) 
re en FORMAT (1X sF60301X013) 
a. : TRE N@ ARE ALL S@RTED NOW , 
7 ; wE ARE NOW GOING TO C@MPLTE ThE SI CISTANCE 
137° MCICs¢ 
138° 201 IFCINTEReMCID) 9 2ce 
139. oe roIDaee aa 992995s92Ce 
° : (KFLAC(MCIC)) 20302030221 
ney 203 : Bhat i rae ae i al 
M Lal 
ey DE AF Se DID+1) 22C04s204,245 
14460 G8 T6 201 


1456 C TRIS FAS NOW RANCL 
6D THE NORMAN SECTISN 
146° aay. FF KFLAG (DIO) eNECRFLAG(PDID#S C8 Te 224 


1476 su asU Ps 
td (S6R M cd “ 

148 YC ICeMDID44 BRT(MDIC+1)-SBRT(MDIC))/Z0 
‘8c° 224 a a at 

$ s 
isi° <iae +(SORT(MDID4+3)+SORT(MDIC+2) eSORT(MDID++) -SSRT(MDID) ) 
152° MCIOsMCID+3 
tes ges iP PEA 

. 24 AG(MC 

car era a 
156° PCICeMDIDeg oseRy(MDiC+1)) /260 
isa 248 Hi se hy (SAR 0 

= + (MO[Den)« 
1596 B)/20 TEMDIDe a) @SORT(MOIC4, )+8GRT(MDID$4) SORT (MDID43) 
160° MOIDsMCID44 
161° G8 78 203 
ae 995 <2l8t Seles. Aelia had “100° 

EST(I) STEST(1)+(SU+SU 
164°¢ GSU1) #SUeRHE 4190+. Ss BT) *267e 
165° 30c = CAATINLY 
166° RETURN 


167° ENC 
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ie Cc SLERGLTyAE YELKy BLeCKeC TAPE INPLT SEIS FORMaT 

ge C MOCIFIEC MAY 1341971 BY REMOVING RECORD SkIp AFTER BAD READ (FOR 

Ze c NEW FONT TOR) 

4e C MeCIFIEC TO YBLK] FROM GELKI MARCr 25,1971 BY FOLINSBEE th 
Se Cc PROGRAMMER J WEBSTER GBLI 4 
66 Cc FOR C BSWIN GBLI 2 
7e c NOV 1970 GBLI 3 
8s € GBLI 4 
Se CHHHAAHEHORH HARSH EE HEHEHE HHEEHHHHHHHHAHHHEHHHHHHHHHH HEHEHE HORE HEHEHE GAL | 5 
10. C SLEROLTINE KAS TWO ENTRY POINTS, YSETI, AND YSLKI 

1ie ¢ ySET! IS TRE INITIALIZING ENTRY, YBLKI IS THE NORMAL ENTRY GBaLI 
12° SUBR@UTINE Reads BLACKEC RECORCS FROM a MAG TAPE, GRLI 6 
13° c AKC RETLRAS CATA FROM Oke LOGICAL RECORD, GSLI 9g 
14e id CONVERTED ACCORDING TO A SPECIFIED FORMAT GBLI 10 
156 CHHSEHAHEHAPEHEEEHEHREHEHEHHHHEHHEHHHIHHHOHHH OHHH HEE H OHHH EReeeeHeeeweeeGBL] 11 
16° SLEROL TINE YBLKI< - 

17° 1 ISRy,1SRe,KCa,KMO6,*KYR, KRY, 1SEC, ILAT,KSN, ILON, KWE, IDEPT, LAMAG, IMB, 

18° 2 ISOS, INTSsIOLAS,1TSL, ISEICH, IVOLC, INONT, IWG, IFEG, IMS, 1ASP, 12H, 

1S. 3 ICE, iMG, 1AUTH, IGHY,NPF, 6G, 1L™,1S1,1S2 
2Ce 4 ) ‘ 
aie C GBLI 15 
2260 Cc ALL YBLK] ARGUMENTS ARE VARIABLE NAMES FOR DATA 
23. Cc T8 Ge READ FRAM 1 LOGICAL RECORC GBLI 17 
B4e G8 T8 100 GBLI 18 
25° (e . GBLI 19 
eée CHRP HR HOH HERR HHHHHHEH HHH HHTHHHHHEHEHHEHEHHHH EHH EHH HEHEHE RCH Pee eee HH eCBL | 20 
276 ENTRY YSETICITAPESIFMT,INCIC, JBLFC, IRLEN, IBUF) 

28° CIMENSIGN IBUF (4) 

29e Cc GBLI 22 
30° [ TRIS IS TRE INITIALIZING ENTRY GBLI 23 
31. Cc ITAPE 1S LOGICAL UNIT NUMBER FOR INPLT GBLI 24 
326 Cc IFPT IS STATEMENT NOo OF FORMAT GBLI 25 
33° Cc JNOJC ys JNCTCayOR OF INFLY STATUS GBLI 26 
R40 ¢ 18READ OKAY GBLI 27 
356 C ps ve 6F FILE GBLI 28 
36° Cc 4ePARITY ERROR: GBLI 29 
376 C SeFARMAT ERROR GBLI 30 
Bae C 6epOTH 4 AND 5 TYpE ERRORS FOUND Gat! 31 
35° C GBLI 32 
ace Cc TELFC ys BLACKING FaCyeR (NO AF LeGrCal ReCARDS PER BLOCK) GBLI 33 
416 Cc IRLEN 1g L@GyCalL RECeRC LENGTH (MUsT BE FLLTIPLe OF 4) GBL1 34 
42° C Labe 1S _ [NpuT aera Gall 35 
43e Cc IF IBLFC aNO [RLEN ARE CRANGEC, THE SIZE BF ARRAY IBUF GBLI 36 
4he Cc MUST ALS@ BE CHANGED Te JEBLFC#IRLEN/4 GBLI 37 
45° IWEROsIFLEN sy GBLI 44 
abe JOLSZs;8LFC*] weRD GSLI 42 
47. CNTsO GBLI 43 
48» ETURN GALI 44 
49e i ENC SF INITIALIZING PARy OF SUBROUTINE GBLI 45 
50+ Cc GBLI 46 
51° begs peg ae cg Se et pa eh halal aaalaatlalahahal! 47 
526 SET UP RUNeTIME ABORT F6R FORMAT ERRARS GBLI 48 
53° 100 CALL Ap6RTSET (226826) GRLI 49 
54° IFC INCIC+EGeg) INCICy 
55° pe LaNelecae INCICS4 
566 ITOTRAS IBLF GBLI 50 
57° Cc GBLI 514 
5a- Cc TEST WreTRER BLOCK IS 76 BE REAC FROM TAPE GBLI §= 


59° IFCICNTeNE®S) GS Th 125 GBLI 53 





489 
60s Cc GALI 54 
6le (a YESsREAC PRKYSICAL RECSROD GALI 55 
6260 CALL BLFFERIN(ITAPEs Qs IBLF, LELS2s INCANW) GBLI S56 
63° 110 G8 TA (110s120,2002210)e¢ IND GPLI 57 
640 212C) «60ND IC 21 GALI 58 
65¢ 425 IF (NWedEefBlLSZ) ITATReNw/IRLEN 
66° - #3 WRITE (1080501) Nw 
67° 501 FAFPAT('YBLKI$ ABNORMAL REC LENGTHs Awetslio ) 
68e 126 CAGNTIAGE 
69e VEICATH#IWORD $y GBLI 60 
7Ce C GBLI 61 
Vie C CECSCE LOGICAL RECBRD ACCBRDING TS FARMAT STATEMENT GBLI 62 
Vee CECBCECIRLENs IFMT, IBUF (a)? GSLI 63 
73° 1 1881 1SR2sKDA,KMByKYR, KRM» ISECy ILATsKSN, ILBNZKWE, IDEPT» TAMAG, IMB, 
740 2 ISO8S,INTSsIOIAS, ITSLs ISEICH, JVOLC,INONT, IWGZIFEGs, IMS, LASP, 12H, 
756 3 ICE, IMGs TALTH,IGHY,NPP, 16G,1LMsISi2IS2 
Joe ce GBLI 67 
77° € KEEF TRACK @F NOeo BF LOGICAL ia GBLI 68 
78. 13¢ CONTINLE 
79° ICATSICAT4+2 GRLI 69 
BCe IFC ICNT+GEeITOTR) ICNTSC GALI 70 
81° CALL ABBRTSET(0) 
aee RETURN GBLI 72 
$3 C GBLI 73 
Rue Cc CGATR@L TRANSFERS FERE FOR EOF GBLI 74 
85e 2cc =INDICse GBLI 75 
B6e G6 Te 130 GBLI 76 
87° c GBLI 77 
RRe C CONTROL COMES KERE FER READ ERRGR GBLI 78 
89¢ 21c «INCIC#4 GBLI 79 
9Ce BUTFUY 'YBLK] READ ERRAR! 
91e C 
92° C RESET Nk (COMPENSATING FOR BUFFIN ERRGR) 
93° NWETBLKSZ A 
: She Cc 7 
956 G68 T@ 126 
F 96° ¢ GBLI a1 
a 97° C CONTROL COVES KERE FAR FORMAT ERROR GBLI 8e 
E GR. 226 COKTINUE 
996 IFCINDICeEGe4) INOIC#6sG6 TE 136 
100° INcicss GELI 8&4 
101° G8 TB 130 GBLI a5 


102° ENC GBLI 86 
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HIGHEST ERROR SEVERITYS o (NO ERRORS) 


Cec KE X 
wOROS wOROS 
GENERAT=C C8CE$ 204 coccc 
CAxSTANTS3 3 coco3 
LOCAL VA TABLES? 9 cocos 
TEMFSS 43 coce8 
eende eee2ee 


TOTAL FREGRAM: 25S ccic3 
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je 


3e 

he 

5. 

ée 

Je 

Be 

Ge 
1Ce 
iis 
12e 
136 
146 
15¢ 
16° 
17° 
186 
19¢ 
2de 
ale 
eee 
23e 
z4e 
256 
260 
27e 
28e 
2ge 
3Ce 
31° 
32° 
33° 
34° 
35° 
36° 
37° 
38° 
39° 
4Ce 
aie 
42e 
43. 
he 
45 
46° 
47° 
48e 
496 
5Ce 
33: 
53° 
S4e 
55° 
56« 
57° 
58-« 
596 
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Cc SUBROUTINE YBLKA@ » BLOCKED TAFE BUTPLT 

C VERSION OF APRIL 14272 76 OUTFLT LAT AND LANG KEY aT END 

GC 6F RECORC 

C MOC OF ALG 16271 TS GBUTPLT SHE8RT RECORD heEN YENDS CALLED 

C wOCIFIED FROy GALKk6 ON MAR €5 71 BY AFELINSBEE TP BUTPUT SEIS DATA 

Cc PROGRAMMER id wEBSTER Gly 
C. FOR C BSWIN GaLe 
C NOV 1970 GBL® 
C GBLe 
CHeH AHHH HHH HAHAH HHHSHRAHHHHHAHHHSKHHHEHEHE HEHEHE HHETH HEHEHE HEHEHE GR f 
Cc SLBROLTINE FAS 3 ENTRY FOINTS: YSET68, YaLK8, YENDS 

Cc YSETE IS TRE INTIALIZING ENTRY 

C YELK6 IS TRE NORMAL ENTRY 

Cc YENCG IS TRE TERMINATING ENTRY : 


CHER AT HER ERE EERE HHH EEE HEHE HEHEHE EHH HEHEHE EEE HEHEHE CH 
SLEROLTINE YBLKe( 
1 ISRy,ISResKDA, KMO,KYR, KRM, ISEC,ILAT,KSN, ILON, KE, IDEPT, IAMAG, IMB, 
2@ ISOS,INTSaICIAS,ITSUsISEICH, [VOLC, INONT, [WG,IFEG, IMS, IASP, 12H, 
3 ICE,IMG,IALTh,IGHY,NPF,16C,ILM,1S1,1S2 


& ) 

C ALL YBLK@ ARGUMENTS ATE yARIABLE NAMES FBR DATA 
C T68 GE WRITTEN IN 4 LaGICAL RECORD GRL8 

CATA UNN/LRN/ 

CATA VEE/LHES 

G8 76 300 GSL6 
TP USULELESECCO OOO SOTO eC ICSC SP ee Cee eee eee ee ee eee eee eee eee eee ces Ss ici. me) 

ENTRY YSETO(VTAPESSFMT,NCPSs eFP LLL, -ELFC,  RLEN, MAXBL, JBUF ) 

CIMENSION VBLF (1) 


Cc GBLA 
€ THIS JS THE INITIALIZING ENTRY G8L8 
Cc wTAPE IS TRE LOGICAL UNIT NUMBER FOR BUTFLT GBL8 
Cc eFMT IS STATEMENT NOe OF FORMAT GBLe 
Cc ACFs ts ree NO, OF Data POINTS CLRREATLY WRITTEN BN a TAPE GBLe 
Cc wFLLL TS STATEMENT NO, TO WHICK CONTROL ys TRANSFERRED G8Le 
Cc WHEN OUTPUT TAPE IS FULL GBL6 
Cc GBL8 
¢ GBL® 

wELFC ys BLACKIAG FaCre@R (Ne, OF LeGyCaL RECARDS PER BLACK) GBLe 
Cc wRLEN IS LOGICAL RECARO LENGTH (MUST GE PMLLTIPLE 6F 4) GBLE 
Cc wELF 1S BUTFLY BUFFER GBLe 
Cc IF vELFC aNO JRLEN ARE ChANGEC, THE SIZE OF ARRAY JBUF GALS 
C PUST Be CHANGED 76 VBLFC#RLEN/4 G8Le 

116LT#108 GALS 
Cc Gale 
Cc MAXEL 1S MAXJMUM NO, OF BLOCKS PER TAPE GBLA 
Cc GBLB 
Cc ¥ELK C@UNTS BLOCKS GRLB 

w~BLK0 © GBL®@ 
Cc GBLg 
ra ZER6 BLT CATA pBINT COUNTER GRLE 

NDFS# GBL®8 
C «Cat Ceunrs LaGyCal ReCeaROs WITRIN a Bleck GBLE 

wChTsQ GRLE 

ehORE®CRLEN/ & GBLe 

wELSZavELFCeeWwORD GBL®8 

RETURN GBLE 
¢ GBLe 

END OF INITIALIZATION GBL98 


CHOHAHAHHHEHHOH HEHEHE EHHTEHHHHHEHHRHHHHHHEHHHHAHHHTHHA HEHEHE HEHEHE HEE HCBL OG 
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6C® Cc TRIS IS TRE TERMINATING ENTRY POINT GBLE 54 

61° ENTRY YENCA 

62: Cc GBL8 57 

$3 IF (CCCATeEG eC) G6 T8 4CCc 1 

64° C SETTING LF TE BUTPUT SHORT RECORC la 

65e wELSZa wARC® CNT : tq 

660 66 T8 310 GEL8 62 

&7e CHAN ARERR OH RENEMEHEREEEHREROHE ATER HOHOORHHHHEE HEHEHE HEHEHE EEE eeMeHEHEHEGELO 63 

oBe ~ GALE 64 

69e C CONVERT LAGICAL RECARO TA ECD GBL8 65 

706 3CC IL SUCNT#. WORC OL GALE 66 

71° TKEYsILAT/1COC 

7é@e GkEYsILON/1CCC 

736 IF (KSNeNE@UNN) TKEYSeTKEY 

The IF (KWEeNE*GEE) GKEYs*GKEY é 

75e LTKEY#TKEY+90¢ 

766 LOKEYSGKEY+18Ce 

77° ENCSCE( RLENs FMT» BUF (ID) GeLe 67 

7he 1 ISRy,ISReeKCA,KMO,KYR,KhM, TSEC, ILATsKSNy ILANsKWE, LDEPT, LAMAGs IMB, 

7S¢ 2 IS8S,INTSAICIAS, I TSUs ISEIChs IVOLC, INONT, IWGy IFEGs IMSs LASPy IZhy 

B06 3 ICE, IMG, TAUTH, IGHY,NPF, 6G, 1LM,IS1,1S2 ,LTKEY,LGKEY 

Sie eCATSUCAT41 GBL8 71 

82° C GBL8 72 

RQ Cc TEST IF READY TO wRITE BLOCK TO TAPE GELS 73 

Bue IF(CCKTeLTewELFC) GA TA 4CG GBL8 74 

&Se Cc GALE 75 

REe Cc wRITE BLOCK ONTO TAPE GALE 76 

876 31C CALL BLFFER BLT (JTAPEsCo~BUFs JBLSZs IND) GaL6 77 

Bae wELSZavBLF Ca WARD 

89° sec 468 TA (320735023302330)4IND GALS 73 

SC 33C wRITECIIELTs3S4C) BLK 

94° 340 FSRMAT(!' ERROR IN WRITING TAPE AFTER s]65 ' BLECKS!) GALE &80o 

92° CALL EXIT GBLB 81 

93° C ‘ GBLA &2 

9he Cc INCREMENT AND RESET COLNTERS GBLE 33 

95¢ 35c CANTIALE GBL@ &4 

S60 NCFSNCFS+eCNT GBLO 85 

976 eCATSC GBLB 86 

98¢ BLK alUBLK+1 GRLE 8&7 

996 C GBLB 88 

10Ce Cc TEST IF TAPE IS FULL GBLE 89 

101° IF (CELKeLEeMAXBL) G8 TO 4CO GBL® 90 

102° wPL K=O GAL8 91 

103° NOFSsQ GELE 92 g 
1046 WRITE (TI@LT+36C) GALE 33 4 
: 105° 36C FORMAT(! MAkA@L BUTPUT) GBLE 94 i 

1076 4OO RETURN G8L6 96 


108¢ ENC : GBLS 97 
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KIGFEST ERROR SEVERITY! © (NO ERRBRS) 


CEC hEX 

wORCOS weROS 

GENERATEC COLES 223 CCCOF 
CANSTAATSS$ 5 cocos 

LOCAL VARTABLES3 14 CCCOE 
TEMFS$ 4§ cocect 


TOTAL FREGRAM; 287 cc1iF 
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1e SLEROLTINE YINGT(ITAPEs TAPE, KKs 
ee 1 ISR1,7SR2,KCa,KMO,KYR, KRM, SEC,CLATAKSN,CLON,KWE,DEPT,AMAG,! 
3° 2 ISPS INTSsIDIASsITSUs ISEICHs IV9LC, INONTs WG IFEGs IMSe LASP 4 I L4e j 
he 3 ICEs ING TAUTH,IGHY,NPF, 16GsILMsISi121S2 ? 
Se & ) 4 
oar FOR INPUT AND OLTPLT OF SEISMICITY DATA USCSGS i 
Je C f 
e € VERSION 24 Fe2 1975 T9 ACD FANDLIAG OF PRAV4 BUTPUT i a 
9° C VERSION BF 25 AUGLST 1972, TO LFCATE CECK T8 BF LIKE | a 
10° c VERSION OF 8 MARCH 4972 COMFILEC BY FALINSBEE 
tie C 
lee C VENSI6N Se APRIL 2@ 71 TO CORRECT FARMAT ERRBRS 
12° C VERSISN BF MARCH 25 1971 BY A FOLINSBEE Te INCORPERATE 
L4e Cc FACILITY T@ READ AND WRITE BLOCKED CATA * 
15° C SSw(44) 8 1 FOR BLECKEC INPUT 
16° C  §N ANC We WERE MaSDE IATS INTEGER § FOR COMPATIFLITY WITH THE S'°~7 
17° C ULSsaGE 6F aLPRA NUMERICS 
18 C AFILE 6PTTON NOT IMPLEMENTEC FOR THIS FREGRAM 
19° CIMENSION IBUF (400). dBLF (200) 
ace CATA IFLAG/C/ 
21° IF (KK) 42024002410 
220 40C TIN s 105 
23°¢ TISLT «2 1C8 
240 IPLN#106 
256 BUTPLT 'SLERBLTINE YINGTs VERSION BF 24 FER 1975! 
266 NZERO80 
e7e KGDAO@sNZERO 
286 KGMABsNZERG 
296 KGYR@SNZER6 
3Ce KGRM@ eNZERO 
31° wRLENSIRLENs 88 
7 32° wELFCs{BLFCaic 
a 33° NREC&C ’ 4 
4 34e MxXCTs 34CCC~ i 
{ 38° TF (1S,(45) eNEoo) MxCT= 15000 
| 36° BE FEN (#42 NE 00) Call Peete Giceae tee Ses LOLFCy TALENTO 
} 37° IFC TSH(yS) eNEoo) CALL YSETO(YTAPE,E5S,NCPS,gaS ,JBLFC,JRLEN 
: gee * @hxXCT, 
4 39° » JBLF) 
i 406 Ge Te 500 
H “te #ic CONTINUE 
y 420 IF (ISW( 44) eNEoog) GE TS éco 
. 43° REAO(ITAPEs65) 
44e 1 ISRy,ISR2eKDA,kMOskyRa kh, TSEC, ITLAT» KSNy ILON es KwEs IDEPTs TAMAGs MBs 
4Se 2 IS@8S,INTS,IDIAS, ITSL, ISEICH, [VOLC, [NONY, IhG, IFEG, IMS, IASP, 12H, 
460 2 ICE, IMG, AUTH, [GHY,NPP, 16Q, ILM, 1Si1,1S2 
&7e CALL STAT(T) 
4Be 411 CONTINUE 
49e IF (ISRyeEGeggg) KK © @ 4s RETURN ‘ 
50° SECSISEC/1Ce : 
5i° CLATsILAT/1000° F 
52° CLON*ILEN/1C0C~ 
536 DEPT#ICEPT 
54e AMAGsIAMAG/s100¢ 
55-6 CaLL evikcllOlr,1, 18AC,KCOa8, KCMO6, KGYRO,KGHMO y 
56 IF (1Bac) 410,53, 74 
57° c END 6F INPUT CaTA, REGLIRED NO. OF FILES NOW PROCESSED 


58° 74 CONTINUE 
59° 577 CONTINGE 





oo Rtn te aA ee 


6Ce 
éie 
62° 
63° 
64e 
6&e 
666 
67° 
68s 
69« 
7Ce 
71ie 
+7ee 
73e 
THe 
756 
7ée@ 
77° 
7B 
796 
RCe 
8ie 
3Z° 
SB 
B4e 
85. 
S660 
B7e 
BBe 
aGe 
SCe 
Sie 
G2e 
936 
She 
95° 
96° 
97° 
S8e 
996 
10Ce 
1016 
102a¢ 
103¢ 
104. 
10S« 
106° 
107° 
108. 
109-6 
11C° 
lile 
lide 
113° 
1146 
1156 
116° 
117° 


hee 


tb YD ee 


x 


5c 
&& 


600 


eWn 


700 


FWNn = 


£00 
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KKs9 
G8 Te 50C 
COATINLE 
KGCABSKCA 
KGM6EakMO 
KGCYR@sSKYR 
KGHMOA SKHM*SEC/O0 0 +045 
G8 Té@ 5c0 
CONTINLE 
IFLAGs4 
ISECSSEC*1C. +049 
ILATsCLAT#1COCe +049 
TLANsCLON#icoce +049 


See. 





FOURS 


ea 
eS a NEN HO ERE ADEE NE 


ICEFTsCEPT 4049 
TAMAGSAMAG*1CCe. +049 
IFCISH(4S)*NEeg) GB T8 7C0 ’ 


IF(CISW(26)*EGe1) vTAPEs1iC8& 

CALCULATING LATITUDE ANC LANGITUCE KEY 

TKEY=CLAT 

GKEYSCLEN 

IF (KSNeRE@ UNA) TKEYe*TKEY 

IF (KWEeNEewEE) GKEYs=GKEY 

LIKEYsTKEY+S5Ce 

LEKEYsGKEY+18C.~ 
WRITE CC TAPE 265) 

ISR1,1SR2,KCa, KMB,KYR, KEM, 1SEC, LAT, KSN, ILAN, KWE, LDEPT, LAMAG, IME, 
ISHS, INTSsICIAS,ITSULsISEICHsTVOLC,INONT, IhGa TIFF Gs IMSs TASP2 I ZH, 
ICE, IMG, TAUT, IGHY,NPF, 160, 1L Me ISi,1Se ,LTKEY » LGKEY 
FORMAT(2ASs S12el4el3slEsAts le Als Elan AeaASe7ALe 13,122 Als Ata des 
I3e 

AzsA2sl3eAls [50A1sA4 221322%) 

IF (NREC eGE eMXCT) NRECsC3;G8 TS 88 

NREC#8NREC4+1 

RETURN 

CONTINLE 

ENCFILE VTAPE 

BUTFLT "REGLESTING New BUTFLT TAFE FOR YINOT? 

CALL MCVOL (UTAPE) 

Ge Ta SCC 

CONTINLE 

CALL YELKI¢ 


ISR1,1SR2,4Da, KM, KYR, KEM, 1SEC,ILAT,KSK, ILON,KWE, IDEPT, TAMAG, IMB, 
IS6S,INTS»IDIAS, ITSUsISEICHs LVOLCs INONT, IWwGo IFEGs IMS» LASPy 1ZHe 
ICE, IMGs TAUTHs IGHY, NPP, JOGeILMe Sie 1S2 

) 

TeINDIC 

G6 Te 441 

CONTIALE 


vs L YELK6¢ 

Shi 1,1SR2,*Ca, KM, KYR, KEM, 1SEC, ILAT,KSN, ILAN,Kwe, ICEPY, TAMAG, IMB, 
teO8, TRIS, [6108.1 TBs LSE LeMe TVeuC a IRONT. Ince TFEG, IMS. LASP, 124%o 
ICE, IMG, TAUTH, IGHY,NPP, 16G,ILMs1S401S2 


) 

G6 T8 506 
CALL YENCE 
ENCFILE wTAPE 
G6 T6 50C 

ENO 
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EXTERNAL SLBPREGRAMS REGLIRED? 





EVIL Ish MCVOL STAT YELKy YELK8 YEND6 YSET] © 
YSETE F3101 Fide F:103 F3104 F105 £2106 F108 
saCOREAC 8 geCChRIT QENCFILE 8 SENCIOL SISDATA sIT6R gPRINT gRTBI 


SSETLFN 


RIGREST ERROR SEVERITY! o (NE ERRORS?) 


CEC hEX 
wBROS WORDS 
evrrae eeeee 

GENERATED C8DE$ 465 C0104 
CONSTANTS; 1c COCOA 
LOCAL VARIABLES? 631 C0277 
TEMPS} 40 coces 


eeaecer eese0e 


TATAL FRAGRAMS 1146 CC47A 
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